Ponto-de-Entrada: LOCAOM110 - Retorna Localização da peça
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
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:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cCod | Caracter | Código Interno do Produto |
Retorno
-
cRet(caracter)
- Localizaçao do Produto
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
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |