Home

Linha Microsiga Protheus

Páginas filhas
  • EICDI500 - Impressão dos itens adição

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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

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

IMPRESSAO_ITEM_ADICAO

Retorno

 

Eventos de chamada do Ponto de Entrada

 

Variáveis

nLinha,aAray

Programa Fonte

EICDI505