Histórico da Página

User Function XGFE070A()

Local cFilial := PARAMIXB1

Local cEmiFat := PARAMIXB2

Local cSerFat := PARAMIXB3

Local cNrFat := PARAMIXB4

Local cDtEmis := PARAMIXB5

local aRotina := .T.

Descrição	XGFE070A - Permitir realizar alteração/verificação antes do vínculo dos conhecimentos à fatura.	Exemplos
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

Bloco de código

theme	Midnight
language	delphi
title	User Function XGFE070A
firstline	1
linenumbers	true

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

Return aRotina

...

Idioma

...

Português(Brasil)

...

Versões

...

Microsiga_Protheus11

...

Sistemas Operacionais Suportados

...

Todos

...

Compatível com as Bases de Dados

...

Todas

...

Parâmetros

...

PARAMIXB1: cFilial
PARAMIXB2: cEmisFat
PARAMIXB3: cSerie
PARAMIXB4: cNrDc
PARAMIXB5: dDtEmis

...

Retorno

...

Lógico

...

Programa Fonte

...


	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

Home

Linha Microsiga Protheus

Páginas filhas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave