Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Andre Luis Wisnheski

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (josiane.borges)

Gravado em

Chave

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

GFE11007 -

 Alterar o critério de agrupamento dos dados do embarcador

ALTERAR O CRITÉRIO DE AGRUPAMENTO DOS DADOS DO EMBARCADOR

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Distribuição e Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFE11007

Descrição:

Alterar o critério de agrupamento dos dados do embarcador.

Localização:

  • 1 - Na montagem do comando SQL para localizar os registros para exportação
  • 2 - Na montagem do comando SQL para localizar os ordenação dos registros para exportação
  • 3 - No critério de agrupamento para gerar os registros 311 e 312

Programa Fonte:

GFEA110 - Exportar Notas Fiscais

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]AlfanuméricoVersão do EDI. Atualmente está funcionando apenas para versão 3.1Sim
PARAMIXB[2]NuméricoRECNO da tabela GW1 (Documento de Carga)Sim
PARAMIXB[3]Numérico

Tipo de processo
1 - Montagem de comando SQL. Campos do "Select".
2 - Montagem do comando SQL. Campos do "Order by"
3 - Conteúdo para avaliação de reimpressão dos reg311 e reg312, dados embarcador e dados destinatário

Sim
PARAMIXB[4]AlfanuméricoAlias do comando SQLSim

Retorno:

NomeTipoDescriçãoObrigatório
cRetAlfanuméricoO tipo do retorno dependerá do tipo deTipo de processo solicitado:
1 - Campos da tabela GW1 para montar o comando SQL do "Select".
2 - Campos da tabela GW1 para montar o comando SQL. do "Order by".
3 - Conteúdo dos campos que serão usados como critério de agrupamento.		Sim

 

Bloco de código
languagedelphi
titleExemplo: GFE11007
linenumberstrue
User Function GFE11007()
	Local cVerEdi := PARAMIXB[1]
	Local nRecGW1 := PARAMIXB[2]
	Local nTpRet := PARAMIXB[3]
	Local cAlQry := PARAMIXB[4]
	Local aAreaGW1 := {}
	Local cRet
	If nTpRet == 1 //Campos do Select
		cRet := ", GW1.GW1_EMISDC "
	ElseIf nTpRet == 2 //Campos do Order By
		cRet := " GW1.GW1_EMISDC,"
	ElseIf nTpRet == 3 //Conteúdo para avaliação de reimpressão dos reg311 e reg312, dados embarcador e dados destinatário
		If nRecGW1 != GW1->(RecNo())
			aAreaGW1 := GW1->(GetArea())
			GW1->(dbGoTo(nRecGW1))
		EndIf
		cRet := GW1->GW1_EMISDC+GW1->GW1_CDDEST
		If !Empty(aAreaGW1)
			RestArea(aAreaGW1)
		EndIf
	EndIf
Return cRet