Linha Microsiga Protheus

Árvore de páginas

Descrição

Ponto de entrada PaComp - Altera os valores dos campos E2_PRETPIS, E2_PRETCOF, E2_PRETCSLL, E5_PRETPIS, E5_PRETCSL, E5_PRETCOF, E5_PRETIRF, E5_PRETINS para "7" (Compensado) e preenche o campo E5_DOCUMEN.

Ponto de Entrada

Descrição:

Baixas a Pagar

Localização:

Baixas a Pagar

Eventos:

Altera os valores dos campos E2_PRETPIS, E2_PRETCOF, E2_PRETCSLL, E5_PRETPIS, E5_PRETCSL, E5_PRETCOF, E5_PRETIRF, E5_PRETINS para "7" (Compensado) e preenche o campo E5_DOCUMEN.

Programa Fonte:

FINA080

Função:

FA080GRV()

Retorno:

Nome

Tipo

Descrição

Obrigatório

Padrão

aRet 

Array

[ 1 ] Tipo lógico - Informa se irá gravar ou não os campos PRETs e E5_DOCUMEN.

[ 2 ] Tipo Caracter - Deve-se informar a chave para gravação do campo E5_DOCUMEN.

Sim

[ 1 ] .F.

[ 2 ] " "

 

Exemplo:

#include 'totvs.ch'

User Function PaComp()
Local aImp := {}

If MsgYesNo("Deseja alterar o conteúdo dos campos PRETs e gravar o campo E5_DOCUMEN? ")

aadd(aImp, {.T., SE2->E2_PREFIXO+SE2->E2_NUM+SE2->E2_PARCELA+SE2->E2_TIPO+SE2->E2_FORNECE+SE2->E2_LOJA})

Else

aadd(aImp, {.F., " "})

EndIf

Return aImp