Linha Microsiga Protheus

Árvore de páginas

Ajuste no ponto de entrada JA203GRV para complementar gravação das faturas.

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Jurídico

Módulo:

SIGAPFS

Rotina:

Rotina

Nome Técnico

JURA203

Emissão de fatura

Ponto de Entrada:

JA203GRV 

País(es):

Todos

Ponto de Entrada

Descrição:

Ajuste no ponto de entrada JA203GRV para complementar gravação da fatura antes da execução dos relatórios, permitindo que as alterações possam refletir na emissão do relatório e/ou na capa da fatura.

Localização:

Módulo 77 - SIGAPFS > Movimentações / Emissão de fatura

Eventos:

O ponto de entrada é executado após a emissão da fatura e antes da emissão dos relatorios.

Programa Fonte:

JURA203 - Emissão de Fatura

Parâmetros:
PosiçãoTipoDescrição
1CarácterTipo de fatura: 1 - Fatura; 2 - Minuta de Fatura; 3 - Minuta de Pré-fatura; 4 - Minuta Sócio
2Carácter
Código do escritório da fatura emitida posicionada na área de trabalho no momento da execução do ponto.
3CarácterCódigo do fatura fatura emitida posicionada na área de trabalho no momento da execução do ponto.
Retorno
PosiçãoValor
1Nulo

Exemplo:


Ponto de entrada para complemento da fatura:

#INCLUDE "RWMAKE.ch"
#INCLUDE "PROTHEUS.ch"

//-------------------------------------------------------------------
/*{Protheus.doc} JA203GRV()
Ponto de entrada para complementar gravação das faturas.

@Param PARAMIXB[1] Tipo de emissão: 1 - Fatura; 2 - Minuta de Fatura; 3 - Minuta de Pré-fatura; 4 - Minuta Sócio
@Param PARAMIXB[2] Código do escritório da fatura emitida
@Param PARAMIXB[3] Código do fatura fatura emitida


@author TOTVS
@since 28/09/2017
@version 1.0
/*/
//-------------------------------------------------------------------
User Function JA203GRV()
Local aArea := GetArea()
Local aAreaNXA := NXA->(GetArea())
Local cTipo := PARAMIXB[1] // 1 - Fatura; 2 - Minuta de Fatura; 3 - Minuta de Pré-fatura; 4 - Minuta Sócio
Local cEscrit := PARAMIXB[2] // Código do escritório da fatura emitida
Local cFatura := PARAMIXB[3] // Código do fatura fatura emitida

If cTipo == '1' //Fatura

If (NXA→(DbSeek(xFilial("NXA")+cEscrit+cFatura)))

RecLock('NXA',.F.)

NXA->NXA_TXTFAT := "Emissão da fatura alterada pelo ponto entrada JA203GRV()."
NXA->(MsUnLock())
NXA->(DbCommit())
Endif

EndIf

RestArea(aAreaNXA)
RestArea(aArea)


Return Nil