Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Hercilio Henning Neto

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Francini Tomaz Pacheco

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á de acordo com tipo de cálculo se é necessário o trecho estar entregue para ser considerado na pré-fatura

Localização:

Na geração 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

Booleano (.T. ou .F.)

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.
	
	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.)
		
		(cAliasGWF)->( dbGoTop() )
		While !(cAliasGWF)->(Eof())	
		
			If Alltrim((cAliasGWF)->GWF_CDTPSE) == "DESCARGA"
			
				If SuperGetMv("MV_XPFDES",.F.,"") == '1' //Serviços
					lRet := .T.
				Else
					lRet := .F.
				EndIf				
			
			EndIf
		
			(cAliasGWF)->( dbSkip() )
		EndDo	
		(cAliasGWF)->( dbCloseArea() )	
	
	EndIf
Return lRet

 

...