DescriçãoXGFE070A - Permitir realizar alteração/verificação antes do vínculo dos conhecimentos à fatura.

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

PARAMIXB[1]: cFilial
PARAMIXB[2]: cEmisFat
PARAMIXB[3]: cSerie
PARAMIXB[4]: cNrDc
PARAMIXB[5]: dDtEmis
PARAMIXB[6]: Alias Tabela GW3 

Retorno

Lógico

Programa Fonte

GFEA070A

Exemplo

User Function XGFE070A()
Local cFilial := PARAMIXB[1]
Local cEmiFat := PARAMIXB[2]
Local cSerFat := PARAMIXB[3]
Local cNrFat  := PARAMIXB[4]
Local cDtEmis := PARAMIXB[5]
Local cAliGW3 := PARAMIXB[6]
local aRotina := .T.
Local aAreaGW3  := (cAliGW3)->(getArea())
	dbSelectArea("GW6")
	GW6->( dbSetOrder(1) )
	If GW6->(dbSeek(cFilial + cEsp + cEmisDf + cSerie + cNrDc + DTOS(dDtEmis)))
		// Se documento não está aprovado no ECM não permite vincular na fatura
		aRotina := .F.
	EndIf
	dbSelectArea(cAliGW3)
	(cAliGW3)->( dbSetOrder(1) )
	(cAliGW3)->( dbGoTop() )
	While !(cAliGW3)->( Eof() )
		If (cAliGW3)->OK == cMarca
			Alert("Registro marcado")
			aRotina := .F.
		EndIf
		(cAliGW3)->( dbSkip() )
	EndDo
	RestArea(aAreaGW3)
Return aRotina