EICDI500 - Impressão dos itens adição

Preview
Descrição	EICDI500 - Impressão dos itens adição
Observações	aArray traz as informações do Código Produto,Descrição do Produto,Quantidade e valor unitário.
Exemplos	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" 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)) Else MsgInfo('Ponto de entrada "IMPRESSAO_ITEM_ADICAO" 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	IMPRESSAO_ITEM_ADICAO
Retorno
Eventos de chamada do Ponto de Entrada
Variáveis	nLinha,aAray,I
Programa Fonte	EICDI505

Home