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 -

Clientes

Emissão de Fatura

Parâmetros:

Retorno

Em qualquer situação :

Posição

Valor

	Tipo

Exemplo

Descrição
1

Uma das Tabelas da View : SA1 / NUH / NUB / NUC / NUA / NU9 / NUD / AC8 / NZBCaracter

AAdd( aCampos, 'SA1' )

2Campos a serem incluídosArray de Caracteres

AAdd ( aCampos, { 'A1_XYZ' , 'A1_XXY' } )

3Campos a serem removidosArray de CaracteresAAdd ( aCampos, { 'A1_XYZ' , 'A1_XXY' } )4Campos a trocar sua ordem ( independente da tabela SX3 )Arrays de Arrays de CaracteresAAdd ( aCampos,{ { 'A1_LOJA' , '01'},{ 'A1_CEP' , '02' } } )

Exemplo:

Campos da Tabela SA1
AAdd( aCamposSA1, 'SA1' )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )
AAdd ( aCamposSA1,{ { 'A1_LOJA' , '01'},{ 'A1_CEP' , '02' } } )

Campos da Tabela NUH
AAdd( aCamposNUH, 'NUH' )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )
AAdd ( aCamposNUH,{ { 'NUH_XCASO' , '01'},{ 'NUH_XTEST' , '02' } } )

Retorno :

AAdd(aRetorno, aCamposSA1)
AAdd(aRetorno, aCamposNUH)

Para utilizar o ponto de entrada para manter campos e tirar os outros :

Posição	Valor	Tipo	Exemplo
1	Uma das Tabelas da View : SA1 / NUH	Caracter	AAdd( aCampos, 'SA1' )
2	Campos a serem mantidos	Array de Caracteres	AAdd ( aCampos, { 'A1_XYZ' , 'A1_XXY' } )

Exemplo:

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' } )

Retorno :

AAdd(aRetorno, aCamposSA1)
AAdd(aRetorno, aCamposNUH)

Ao utilizar dessa forma, as outras tabelas que não são necessárias no SIGAJURI (exemplo: NUB / NUC / NUA / NU9), também são retiradas.

Exemplo prático:

	Carácter	Tipo de fatura: 1 - Fatura; 2 - Minuta de Fatura; 3 - Minuta de Pré-fatura; 4 - Minuta Sócio
2	Carácter	Código do escritório da fatura emitida posicionada na área de trabalho no momento da execução do ponto.
3	Carácter	Código do fatura fatura emitida posicionada na área de trabalho no momento da execução do ponto.

Retorno

Posição	Valor
1	Nulo

Exemplo:

Ponto de entrada para complemento da fatura:

#INCLUDE "RWMAKE

Com uma tabela SA1

Com as duas Tabelas SA1 / NUH

#INCLUDE "rwmake.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' } )

// Retorno :
AAdd(aRetorno, aCamposSA1)
AAdd(aRetorno, aCamposNUH)
Return aRetorno

Ajuste no ponto de entrada JA203GRV

//-------------------------------------------------------------------
/*{Protheus.doc} JA203GRV()
Ponto de entrada 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

@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

Ponto de Entrada

Descrição:

O

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

ponto de entrada que permitia a inclusão, remoção e reordenação de campos da tela de cadastro de clientes ( campos obrigatórios não são contemplados ), agora é possível manter os campos desejados e o restante será tirado da tela (Apenas quando estiver no SIGAJURI, e a integração com o PFS desativada)

Localização:

Módulo 76 - SIGAJURI > Atualizações / Administrativo / Clientes

Eventos:

O ponto de entrada é executado durante a montagem da View do modelo.

Programa Fonte:

JURA148 - Clientes

Retorno

Em qualquer situação :

Posição	Valor	Tipo	Exemplo
1	Uma das Tabelas da View : SA1 / NUH / NUB / NUC / NUA / NU9 / NUD / AC8 / NZB	Caracter	AAdd( aCampos, 'SA1' )
2	Campos a serem incluídos	Array de Caracteres	AAdd ( aCampos, { 'A1_XYZ' , 'A1_XXY' } )
3	Campos a serem removidos	Array de Caracteres	AAdd ( aCampos, { 'A1_XYZ' , 'A1_XXY' } )
4	Campos a trocar sua ordem ( independente da tabela SX3 )	Arrays de Arrays de Caracteres	AAdd ( aCampos,{ { 'A1_LOJA' , '01'},{ 'A1_CEP' , '02' } } )

Exemplo:

Campos da Tabela SA1
AAdd( aCamposSA1, 'SA1' )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )
AAdd ( aCamposSA1,{ { 'A1_LOJA' , '01'},{ 'A1_CEP' , '02' } } )

Campos da Tabela NUH
AAdd( aCamposNUH, 'NUH' )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )
AAdd ( aCamposNUH,{ { 'NUH_XCASO' , '01'},{ 'NUH_XTEST' , '02' } } )

Retorno :

AAdd(aRetorno, aCamposSA1)
AAdd(aRetorno, aCamposNUH)

Para utilizar o ponto de entrada para manter campos e tirar os outros :

Posição	Valor	Tipo	Exemplo
1	Uma das Tabelas da View : SA1 / NUH	Caracter	AAdd( aCampos, 'SA1' )
2	Campos a serem mantidos	Array de Caracteres	AAdd ( aCampos, { 'A1_XYZ' , 'A1_XXY' } )

Exemplo:

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' } )

Retorno :

AAdd(aRetorno, aCamposSA1)
AAdd(aRetorno, aCamposNUH)

Ao utilizar dessa forma, as outras tabelas que não são necessárias no SIGAJURI (exemplo: NUB / NUC / NUA / NU9), também são retiradas.

Exemplo prático:

Com uma tabela SA1

Com as duas Tabelas SA1 / NUH

#INCLUDE "rwmake.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' } )

// Retorno :
AAdd(aRetorno, aCamposSA1)
AAdd(aRetorno, aCamposNUH)
Return aRetorno

Árvore de páginas

Versões comparadas

Versão antiga 7

Nova versão Atual

Chave

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

Características do Requisito

Ponto de Entrada

Para utilizar o ponto de entrada para manter campos e tirar os outros :

Exemplo prático:

Exemplo:

Características do Requisito

Ponto de Entrada

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

Para utilizar o ponto de entrada para manter campos e tirar os outros :

Exemplo prático:

Árvore de páginas

Histórico da Página

Versões comparadas

Versão antiga 7

Nova versão Atual

Chave

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

Características do Requisito

Ponto de Entrada

Para utilizar o ponto de entrada para manter campos e tirar os outros :

Exemplo prático:

Exemplo:

Características do Requisito

Ponto de Entrada

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

Para utilizar o ponto de entrada para manter campos e tirar os outros :

Exemplo prático: