Histórico da Página

EICDI500 - Impressão dos itens adição

User Function EICDI505()

Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))
Local 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 := If(Type("ParamIxb") = "A",ParamIxb[4],If(Type("ParamIxb") = "C",ParamIxb,""))

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

If cParam == "IMPRESSAO_ITEM_ADICAO"
For i:=1 to Len(aAray)
IF SB1->(DBSEEK(xFILIAL("SB1")+Alltrim(aAray[i,1])))
MsgInfo('Entrou no ponto de entrada "IMPRESSAO_ITEM_ADICAO".,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 "IMPRESSAO_ITEM_ADICAO" não localizou o produto.')
EndIF
Next
EndIf

Return Nil

Português(Brasil)

Microsiga_Protheus11

Windows

Topconnect

IMPRESSAO_ITEM_ADICAO

nLinha,aAray

EICDI505