Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (amanda.vieira)

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Usuário desconhecido (amanda.vieira)

Gravado em

Chave

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

GFEXFB10 - Definir novo agrupamento para os cálculos do romaneio de carga

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Número do grupo do cálculo
Ponto de Entrada:GFEXFB10

Descrição:

Possibilidade de definir um novo agrupamento para os cálculos do Romaneioromaneio de carga.

Localização:

Chamado ao ser definido o número de agrupamento dos cálculos;

Programa Fonte:

GFEXFUNB - Funções Genéricas do Cálculo

Parâmetros:Necessário enviar as informações

NomeTipoDescriçãoObrigatório
PARAMIXB[1] CaracterEmissor do documento de carga
na seguinte sequência:

Emissor, Série, Número, Código do Tipo do Documento, Número do Romaneio.

Retorno:

Sim
PARAMIXB[2] CaracterSérie do documento de cargaSim
PARAMIXB[3] CaracterNúmero do documento de cargaSim
PARAMIXB[4] Caracter Código do tipo do Documento Sim
PARAMIXB[5] CaracterNúmero do romaneio do documento de cargaSim

Retorno:

NomeTipoDescriçãoObrigatório
cNumGrupCaracterNúmero do grupo do cálculoNão
Bloco de código
languagedelphi
firstline1
titleExemplo: GFEXFB10
linenumberstrue
User Function GFEXFB10
Local cEmisDc  := PARAMIXB[1] //GFEXFB_5CMP(lTabTemp, cTRBDOC, @aDocCarg, 1,"EMISDC"),;
Local cSerDc   := PARAMIXB[2] //GFEXFB_5CMP(lTabTemp, cTRBDOC, @aDocCarg, 1,"SERDC"), ;
Local cNrDc    := PARAMIXB[3] //GFEXFB_5CMP(lTabTemp, cTRBDOC, @aDocCarg, 1,"NRDC"),  ;
Local cCdTpDc  := PARAMIXB[4] //GFEXFB_5CMP(lTabTemp, cTRBDOC, @aDocCarg, 1,"CDTPDC")
Local cNrRom   := PARAMIXB[5] //GFEXFB_5CMP(lTabTemp, cTRBDOC, @aDocCarg, 1,"NRAGRU") || gwn_nrrom
Local cNumGrup     := ""
Local cQuery   := ""
Local cAliasQry:= ""
Local nNumGrup := 0
local nX       := 0
Local aNumGrup := {}
	
	cQuery := " SELECT GW1_CDTPDC,GW1_EMISDC,GW1_SERDC,GW1_NRDC,GW1_CDREM,GW1_CDDEST,GW1_ENTNRC,GW1_ENTBAI,GW1_ENTEND"
	cQuery += "   FROM "+RetSqlName('GW1')"
	cQuery += "  WHERE GW1_FILIAL = '"+xFilial('GW1')+"'"
	cQuery += "    AND GW1_NRROM  = '"+cNrRom+"'" 
	cQuery += "    AND D_E_L_E_T_ = ' '"
	cQuery := ChangeQuery(cQuery)
	cAliasQry := GetNextAlias()
	dbUseArea(.T.,'TOPCONN',TCGENQRY(,,cQuery),cAliasQry,.F.,.T.)
	While (cAliasQry)->(!Eof())
	
		If  (nX := aScan(aNumGrup,{|x| x[2] == (cAliasQry)->(GW1_EMISDC+GW1_CDREM+GW1_CDDEST+GW1_ENTNRC+GW1_ENTBAI+GW1_ENTEND)})) == 0
			nNumGrup++
			aAdd(aNumGrup,{StrZero(nNumGrup,06),(cAliasQry)->(GW1_EMISDC+GW1_CDREM+GW1_CDDEST+GW1_ENTNRC+GW1_ENTBAI+GW1_ENTEND),{}})
			nX := Len(aNumGrup)
		EndIf
		aAdd(aNumGrup[nX][3], (cAliasQry)->(GW1_CDTPDC+GW1_EMISDC+GW1_SERDC+GW1_NRDC))
		(cAliasQry)->(dbSkip())
	EndDo
	(cAliasQry)->(dbCloseArea())
	
	For nX := 1 To Len(aNumGrup)
		If (aScan(aNumGrup[nX][3], {|x| x == cCdTpDc+cEmisDc+cSerDc+cNrDc})) > 0
			cNumGrup := aNumGrup[nX][1]
		EndIf
	Next nX
Return cNumGrup