Descrição

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

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: Struct da GW3
ParamIXB2: Agrupador do folder

Retorno

Lógico (Sempre .T.)

Eventos de chamada do Ponto de Entrada

Renderização do View

Programa Fonte

GFEA065