Histórico da Página

EICDI500 - Unidade de medida do produtoImpressão dos itens adição

User Function EICDI505()

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

/*
aAray[1] - Codigo Item
aAray[2] - Descrição Item
aAray[3] - Quantidade
aAray[4] - Valor
*/

If cParam == "UNIMPRESSAO_MEDIDAITEM_PRODUTOADICAO"
SB1->(DBSETORDER(1) For i:=1 to Len(aAray)
IF SB1->(DBSEEK(xFILIAL("SB1")+Alltrim(cCodaAray[i,1])))
MsgInfo('Entrou no ponto de entrada "UNIMPRESSAO_MEDIDAITEM_PRODUTOADICAO".,Unidade de medida do Produto : '+SB1->B1_UM),Cod: '+Alltrim(aAray[i,1])+' Desc: '+Alltrim(aAray[i,2])+' Quant: '+ cValToChar(aAray[i,3])+ ' Preço: '+ cValToChar(aAray[i,4])+;
' Linha: '+ cValToChar(nLinha))
I++
Else
MsgInfo('Ponto de entrada "UNIMPRESSAO_MEDIDAITEM_PRODUTOADICAO" não localizou o produto.')
EndIF
Next
EndIf

Return Nil

Português(Brasil)

Microsiga_Protheus11

Windows

Topconnect

UNIMPRESSAO_MEDIDAITEM_PRODUTOADICAO

cCodnLinha,aAray

EICDI505