Linha Microsiga Protheus

Page tree

Descrição

Ponto de entrada CriaImp - Permite ou não que seja gerado os impostos no momento da baixa da NF.

Utilizando este ponto de entrada os campos E2_PRETPIS, E2_PRETCOF, E2_PRETCSLL, E5_PRETPIS, E5_PRETCSL, E5_PRETCOF, E5_PRETIRF, E5_PRETINS serão preencidos com o número "7" (Compensado)

Ponto de Entrada

Descrição:

Baixas a Pagar

Localização:

Baixas a Pagar

Eventos:

Permite ou não que seja gerado os impostos no momento da baixa da NF.

Programa Fonte:

FINA080

Função:

FA080GRV()

Retorno:

Nome

Tipo

Descrição

Obrigatório

Padrão

aRet 

Array

[ 1 ] Tipo lógico - Informa se irá gerar ou não os impostos no momento da baixa da NF.

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

Sim

[ 1 ] .T.

[ 2 ] " "

 

Exemplo:

#include 'totvs.ch'

User Function CriaImp()

Local aImp := {}

If !(MsgYesNo("Deseja que seja gerado os impostos no momento da baixa da NF? "))

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

Else

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

EndIf

Return aImp