Descrição

EICDI500 - Unidade de medida do produto

Observações

cCod recebe o código do produto que vem em um array com todos os produtos.

Exemplos

User Function EICDI505()

Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))
Local cCod := If(Type("ParamIxb") = "A",ParamIxb[2],If(Type("ParamIxb") = "C",ParamIxb,""))

If cParam == "UN_MEDIDA_PRODUTO"
SB1->(DBSETORDER(1))
IF SB1->(DBSEEK(xFILIAL("SB1")+Alltrim(cCod)))
MsgInfo('Entrou no ponto de entrada "UN_MEDIDA_PRODUTO".,Unidade de medida do Produto : '+SB1->B1_UM)
Else
MsgInfo('Ponto de entrada "UN_MEDIDA_PRODUTO" não localizou o produto.)
EndIF
EndIf

Return Nil

Preview

Veja também

 

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Windows

Compatível com as Bases de Dados

Topconnect

Updates

 

Parâmetros

UN_MEDIDA_PRODUTO

Retorno

 

Eventos de chamada do Ponto de Entrada

 

Variáveis

cCod

Programa Fonte

EICDI505