Linha Microsiga Protheus

Árvore de páginas

GFEA6510 - Validar Relacionamento do Documentos de Carga

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA6510

Descrição:

Permitir validar se o Documento de Carga foi relacionado ao Documento de Frete

Localização:

Na conferência do Documento de Frete após sua inclusão

Programa Fonte:

GFEA065

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]CaracterEmissor do Documento de Frete     Sim
PARAMIXB[2]CaracterNumero do Documento de Frete     Sim
PARAMIXB[3]CaracterSerie do Documento de Frete      Sim
PARAMIXB[4]CaracterTipo do documento de Frete        Sim
PARAMIXB[5]CaracterEmissor Documento de Carga           Sim
PARAMIXB[6]CaracterNumero Documento de CargaSim
PARAMIXB[7]CaracterSerie Documento de Carga Sim
PARAMIXB[8]CaracterTipo Documento de Carga  Sim

Retorno:

TipoDescriçãoObrigatório
Boolean

.T. -  O programa ira verificar se todos os Documentos de Carga do cálculo foram relacionadas ao Documento de Frete

.F. -  O programa não ira verificar se todos os Documentos de Carga do cálculo foram relacionadas ao Documento de Frete

Sim
Observação:Não se aplica. 
Exemplo: XGFECALF
User Function GFEA6510()

  local cGW3EmisDf  := PARAMIXB[1]
  local cGW3NrDf  := PARAMIXB[2]
  local cGW3SerDf := PARAMIXB[3]
  local cGW3TpDf  := PARAMIXB[4]
  local cGW4EmisDc  := PARAMIXB[5]
  local cGW4NrDc := PARAMIXB[6]
  local cGW4SerDc := PARAMIXB[7]
  local cGW4TpDc := PARAMIXB[8]
  local cAliasGW1 := GetNextAlias()
  local cGW1TpOperac := ""
  local cGW1ClassFrt := ""

  BeginSQL Alias cAliasGW1

		SELECT  	
         GW1.GW1_ROMTO,
         GW1.GW1_ROMCF
		FROM 
			%table:GW1% GW1
		WHERE     
         GW1.GW1_CDTPDC = %Exp:cGW4TpDc%
         AND GW1.GW1_EMISDC = %Exp:cGW4EmisDc%
         AND GW1.GW1_SERDC = %Exp:cGW4SerDc%
         AND GW1.GW1_NRDC = %Exp:cGW4NrDc%
         AND GW1.GW1_FILIAL = %xFilial:GW1%
         AND GW1.%NotDel%

	EndSql

    if(cAliasGW1)->(!EOF())

        cGW1TpOperac := Alltrim((cAliasGW1)->(GW1_ROMTO))
        cGW1ClassFrt := Alltrim((cAliasGW1)->(GW1_ROMCF))

    ENDIF 
    (cAliasGW1)->(dbCloseArea()) 

Return .T.