Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 11

changes.mady.by.user Luciano Pereira Dos Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Luciano Pereira Dos Santos

Gravado em

Chave

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

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

ante

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çoes / Administrativo / Clientes

Movimentações / Emissão de fatura

Eventos:

O ponto de entrada é executado

durante a montagem da View do modelo

após a emissão da fatura e antes da emissão dos relatorios.

Programa Fonte:

JURA148

JURA203 -

Clientes3Carácter

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
Alias da área de trabalho aberta com as faturas emitidas
Código do escritório da fatura emitida posicionada na área de trabalho
4
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:


Com uma tabela SA1Com as duas Tabelas SA1 / NUHPonto de entrada para complemento da fatura:

#INCLUDE "rwmakeRWMAKE.ch"
#INCLUDE "PROTHEUS.ch"

User Function JA148FLDS()

Local aRetorno := {}
Local aCamposSA1 := {}

// Campos da Tabela SA1
AAdd( aCamposSA1, 'SA1' )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )

// Retorno :

AAdd(aRetorno, aCamposSA1)
Return aRetorno

#INCLUDE "rwmake.ch"

#INCLUDE "PROTHEUS.ch"

User Function JA148FLDS()

Local aRetorno := {}
Local aCamposSA1 := {}
Local aCamposNUH := {}

// Campos da Tabela SA1
AAdd( aCamposSA1, 'SA1' )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )

// Campos da Tabela NUH
AAdd( aCamposNUH, 'NUH' )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )

//-------------------------------------------------------------------
/*{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// Retorno :
AAdd(aRetorno, aCamposSA1)
AAdd(aRetorno, aCamposNUH)
Return aRetorno