Linha Microsiga Protheus

Árvore de páginas

 Tempo aproximado para leitura: 05 min

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Jurídico
Módulo:Pré-faturamento de Serviços - SIGAPFS
Função:Emissão de Faturas - JURA203


02. PONTO DE ENTRADA

Descrição:

Ponto de entrada usado 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:

Atualizações > Movimentações > Emissão de Faturas

Programa Fonte:

JURA203

Função:

JA203Emite

Ponto de Entrada:

JA203GRV

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


03. EXEMPLO

#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