Descrição

XGFEINC - Permitir a inclusão de novos campos no primeiro folder do Documento de Frete

Observações

Deve ser usado juntamente com o XGFEMODE

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: 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

GFEXFUNC