Home

Linha Microsiga Protheus

Páginas filhas
  • XGFE070A - Permitir realizar alteração/verificação antes do vínculo dos conhecimentos à fatura

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Reverted from v. 5

 

 

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

Bloco de código
themeMidnight
languagedelphi
titleUser Function XGFE070A
firstline1
linenumberstrue
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

...

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

...

Retorno

...

Lógico

...

Programa Fonte

...