Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Iuri Bruning Negherbon

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Fabiane Schulze

Gravado em

Chave

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

GFEA0551 -

...

 Verificar a obrigatoriedade da entrega do trecho

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

...

Ponto de Entrada:GFEA0551

Descrição:

Verificará os parâmetros de acordo com o tipo de cálculo .se é necessário o trecho estar entregue para ser considerado na pré-fatura

Localização:

Chamado na Na geração de da pré-fatura antes da verificação da obrigatoriedade da entrega do trecho do transportador

Programa Fonte:

GFEA055 - Geração de Pré-faturas

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]CaractereNúmero do cálculoSim
PARAMIXB[2]CaractereTipo do cálculoSim

Retorno:

NomeTipoDescriçãoObrigatório
lRetLógico

Para pré-fatura do tipo obrigatório(1) retorna "True", e para pré-fatura do tipo opcional(2) retorna "False"

Sim

...

Bloco de código
languagedelphi
titleExemplo: GFEA0551
linenumberstrue
#Include 'Protheus.ch'
User Function GFEA0551()
	Local cNRCALC := PARAMIXB[1]
	Local cTPCALC := PARAMIXB[2]
	Local lRet := .T.
	
	conout("gfea0551")
	conout(cTPCALC)
	
	if cTPCALC == '7'
	
		cQuery := " SELECT *" 	
		cQuery += "FROM " + RetSQLName("GWF") + " GWF "
		cQuery += "WHERE "
		cQuery += " GWF_NRCALC = '"  + cNRCALC + "' AND "
		cQuery += " GWF_TPCALC = '"  + cTPCALC + "' AND "						
		cQuery += " GWF.D_E_L_E_T_ = ''"			
		cQuery := ChangeQuery(cQuery)		
		
		cAliasGWF := GetNextAlias()
		dbUseArea( .T., "TOPCONN", TCGENQRY(,,cQuery),cAliasGWF, .F., .T.)
		
		dbSelectArea(cAliasGWF)
		(cAliasGWF)->( dbGoTop() )
		While !(cAliasGWF)->(Eof())	
		
			conout((cAliasGWF)->GWF_CDTPSE )
		
			IF alltrim((cAliasGWF)->GWF_CDTPSE) == "DESCARGA"
			
				conout(SuperGetMv("MV_XPFDES",.F.,""))
			
				if SuperGetMv("MV_XPFDES",.F.,"") == '1' //Serviços
					lRet := .T.
				else
					lRet := .F.
				endif				
			
			ENDIF
		
			(cAliasGWF)->(dbSkip())
		EndDo	
		(cAliasGWF)->( dbCloseArea() )	
	
	endif
	
	conout("fim gfea0551")
Return lRet