Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Marcos Wagner Junior

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Andre Luis Wisnheski

Gravado em

Chave

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

...

GFE11008 - CHAMADA DE GRUPO DE PERGUNTAS CUSTOMIZADO NA ROTINA EXPORTAR NOTFIS

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

...

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada -

...

 GFE11008

Descrição:

Permitir a

...

chamada de um grupo de perguntas customizado na rotina Exportar NOTFIS.

Localização:

Antes de

...

executar a exportação do “EDI NotFis Layout 3.1”, substituindo o grupo de perguntas padrão.

Programa Fonte:

GFEA110 - Exportar Notfis

Parâmetros:

...

Este ponto de entrada não recebe parâmetros.

Retorno:

...

Não se aplica.

...

 

...

1
2
3
4
5
6
7
8
9

User Function GFE11008()

...

.T. ou .F. - de acordo com o retorno da função Pergunte().

Bloco de código
languagedelphi
titleExemplo: GFE11008
linenumberstrue
#INCLUDE "PROTHEUS.CH"
User Function GFE11008()
	// Chamada do grupo de perguntas customizado
	If Pergunte("GF110CUS",.T.)
		Return .T.
	Else
		Return .F.
	EndIf
Return

aEstrut := { "X1_GRUPO" , "X1_ORDEM" , "X1_PERGUNT", "X1_PERSPA" , "X1_PERENG" , "X1_VARIAVL", "X1_TIPO" , ;
"X1_TAMANHO", "X1_DECIMAL", "X1_PRESEL" , "X1_GSC" , "X1_VALID" , "X1_VAR01" , "X1_DEF01" , ;
"X1_DEFSPA1", "X1_DEFENG1", "X1_CNT01" , "X1_VAR02" , "X1_DEF02" , "X1_DEFSPA2", "X1_DEFENG2", ;
"X1_CNT02" , "X1_VAR03" , "X1_DEF03" , "X1_DEFSPA3", "X1_DEFENG3", "X1_CNT03" , "X1_VAR04" , ;
"X1_DEF04" , "X1_DEFSPA4", "X1_DEFENG4", "X1_CNT04" , "X1_VAR05" , "X1_DEF05" , "X1_DEFSPA5", ;
"X1_DEFENG5", "X1_CNT05" , "X1_F3" , "X1_PYME" , "X1_GRPSXG" , "X1_HELP" , "X1_PICTURE", ;
"X1_IDFIL" }

aAdd( aDados, {'GFEA110','24,'Numero Viagem de ?','','','MV_CH0','C',08,0,0,'G','U_GFE300VL(1,"GFEA110")','MV_PAR24','','','','','','','','','','','','','','','','','','','','','','','','','GWPREL','','','','',''} )
aAdd( aDados, {'GFEA110','25','Numero Viagem até ?','','','MV_CH0','C',08,0,0,'G','U_GFE300VL(2,"GFEA110")','MV_PAR25','','','','ZZZZZZZZ','','','','','','','','','','','','','','','','','','','','','GWPREL','','','','',''} )

//
// Atualizando dicionário
//
dbSelectArea( "SX1" )
SX1->( dbSetOrder( 1 ) )

For nI := 1 To Len( aDados )
If !SX1->( dbSeek( PadR( aDados[nI][1], nTam1 ) + PadR( aDados[nI][2], nTam2 ) ) )
RecLock( "SX1", .T. )
For nJ := 1 To Len( aDados[nI] )
If aScan( aStruDic, { |aX| PadR( aX[1], 10 ) == PadR( aEstrut[nJ], 10 ) } ) > 0
SX1->( FieldPut( FieldPos( aEstrut[nJ] ), aDados[nI][nJ] ) )
EndIf
Next nJ
MsUnLock()
EndIf
Next nI

RestArea( aAreaDic )
RestArea( aArea )

Return

...