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

Descrição

Observações

Deve ser usado juntamente com o 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

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

Home

Linha Microsiga Protheus

Páginas filhas