Histórico da Página

Preview
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
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

Home