XGFERATE - Verifica se há contas contábeis específicas

Descrição

Observações

Deve ser usado juntamente com o XGFEMODE

Exemplos

// Somente para Documentos de Frete
if PARAMIXB[1] = "2"
 dbSelectArea("GW3")
 dbSetOrder(10)
 dbSeek(PARAMIXB[2]+PARAMIXB[3]+PARAMIXB[4]+PARAMIXB[5])
 While !Eof() .AND. GW3->GW3_FILIAL == PARAMIXB[2] .AND. GW3->GW3_EMISDF == PARAMIXB[3] ;
 .AND. GW3->GW3_SERDF == PARAMIXB[4] .AND. GW3->GW3_NRDF == PARAMIXB[5] .AND. GW3->GW3_DTEMIS == PARAMIXB[6]

dbSelectArea("PAA")
 dbSetOrder(1)
 If !dbSeek('' + CVALTOCHAR(Val(GW3->GW3_XTPDF) - 1))
 Help( ,, 'HELP',, "Não foi encontrada Conta Contábil." + CRLF+CRLF + ;

"A Grade Contábil será gerada com as informações padrões." + CRLF+CRLF +;

"Para utilizar uma conta contábil de serviço a mesma deve ser cadastrada e a grade contábil deve ser regerada.", 1, 0)
 EndIf

dbSelectArea("GW3")
 dbSkip()
 EndDo
EndIf

Idioma	Português(Brasil)
Versões	Microsiga_Protheus11
Sistemas Operacionais Suportados	Todos
Compatível com as Bases de Dados	Todas
Parâmetros	ParamIXB1: Model da GW3
Retorno	Lógico (Sempre .T.)
Eventos de chamada do Ponto de Entrada	Pós-Validação
Programa Fonte	GFEA065

Home

Linha Microsiga Protheus

Páginas filhas