Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: LOCAOM110 - Retorna Localização da peça
Descrição: Ponto de entrada na rotina Consulta Pecas de Orçamento (OFIXC001), executado após a consulta da peça para retornar a sua localização. Eventos User Function LOCAOM110() cCod := ParamIxb[1] DBSelectArea("SB1") DBSetOrder(1) DBSeek(xFilial("SB1")+cCod return SB1->B1_XXLOC Programa Fonte OFIXC001.PRW Sintaxe LOCAOM110 - Retorna Localização da peça ( [ cCod ] ) --> cRet Parâmetros:
Retorno
Observações Exemplos dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),cAliasSB1,.T.,.T.) Do While !( cAliasSB1 )->( Eof() )if (cAliasSB1)->B1_GRUPO <> cGruVeicLocaliz := ""SB5->(dbSeek(xFilial("SB2")+(cAliasSB1)->B1_COD))cLocaliz := FM_PRODSBZ((cAliasSB1)->B1_COD,"SB5->B5_LOCALIZ")if ExistBlock("LOCAOM110")cLocaliz := ExecBlock("LOCAOM110",.f.,.f.,{(cAliasSB1)->B1_COD})EndifnSaldo := 0if SB2->(dbSeek(xFilial("SB2")+(cAliasSB1)->B1_COD+(cAliasSB1)->B1_LOCPAD))nSaldo := SaldoSB2()EndifaAdd(aArray,{(cAliasSB1)->B1_DESC,(cAliasSB1)->B1_GRUPO,(cAliasSB1)->B1_CODITE,cLocaliz,nSaldo, B1_COD})EndifdbSelectArea(cAliasSB1)dbSkip()Enddo(cAliasSB1)->(dbCloseArea()) Variáveis
|
Import HTML Content
Visão Geral
Conteúdo das Ferramentas