Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Fabiane Schulze

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Fabiane Schulze

Gravado em

Chave

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

GFEA6511 -

Validar Relacionamento do Documentos de Carga

Permitir alterar a validação de existência de cálculo de frete

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA6511

Descrição:

Permitir validar se o Documento de Carga foi relacionado ao Documento de FreteGFEA6511 - Permitir alterar a validação de existência de cálculo 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]CaracterBooleanInforma se é obrigatório ou não a validação do cálculo  Emissor do Documento de Frete     Sim
PARAMIXB[2]CaracterNumero Filial do Documento documento de Frete  frete     Sim
PARAMIXB[3]CaracterSerie Espécie do Documento de Frete      Sim
PARAMIXB[4]CaracterTipo Emissor do documento de Frete        frete Sim
PARAMIXB[5]CaracterEmissor Documento de Carga Série do documento de frete            Sim
PARAMIXB[6]CaracterNumero Documento de CargaNúmero do documento de freteSim
PARAMIXB[7]CaracterDataData de emissão do documento de freteSerie Documento de Carga Sim
PARAMIXB[8]CaracterTipo Documento de Carga  ObjetoModel da tabela GW4NãoSim

Retorno:

TipoDescriçãoObrigatório
Boolean

.T. -  O programa ira verificar se todos os Documentos de Carga fará a validação do cálculo foram relacionadas vinculado ao Documento documento de Fretefrete

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

Sim
Observação:Não se aplica. 
Bloco de código
languagedelphi
titleExemplo: GFEA6511
linenumberstrue
User Function GFEA6510GFEA6511()

  local  Local ChkObrigat cGW3EmisDf  	:= PARAMIXB[1]
  local  Local GW3FILIAL cGW3NrDf  	:= PARAMIXB[2]
  local cGW3SerDf := PARAMIXB[3]
Local GW3CDESP  local cGW3TpDf  	:= PARAMIXB[43]
  local cGW4EmisDc Local := PARAMIXB[5]
GW3EMISDF   local cGW4NrDc 	:= PARAMIXB[64]
  local cGW4SerDc := PARAMIXB[7]
Local GW3SERDF  local cGW4TpDc 	:= PARAMIXB[85]
  local cAliasGW1 := GetNextAlias()
Local GW3NRDF  local cGW1TpOperac 	:= ""PARAMIXB[6]
  local cGW1ClassFrt := ""

  BeginSQL Alias cAliasGW1

		SELECT  	Local GW3DTEMIS   	:= PARAMIXB[7]
         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.Local oModelgw4   	:= PARAMIXB[8]

    ChkObrigat := .F. 

Return ChkObrigat