Histórico da Página

DescriçãoXGFEINC - Permitir a inclusão de novos campos no primeiro folder do Documento de Frete

XGFECTCC - Permite alterar conta e centro de custo da contabilização

Observações

Deve ser usado juntamente com o XGFEMODE XGFERATE

Exemplos

User Function XGFECTCC()
 Local cRet := .T.

// 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))
 cRet:= {PAA->PAA_CONTA,PAA->PAA_CCUST}
 EndIf
 dbSelectArea("GW3")
 dbSkip()
 EndDo
 EndIf
Return cRet