Histórico da Página

Localização: Function a103Grava - Gravação da Nota Fiscal de Entrada. Finalidade: Este Ponto de Entrada permite tratar o Rateio por Centro de Custo na gravação do Documento de Entrada.Importante: Este Ponto de Entrada pode ser customizado no Cabeçalho e nos Ítens do Rateio, sendo necessário retornar um array contendo o Cabeçalho e os Ítens do Rateio.	

MATA103.PRW

MT103RTE - Rateio por Centro de Custo ( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3] ] ) --> aRet

aRet(array_of_record)
• array contendo o Cabeçalho e os ítems do Rateio por Centro de Custo

User Function MT103RTELocal aHeader:= PARAMIXB[ 1 ]Local aCols     := PARAMIXB[ 2 ]Local nItem      := PARAMIXB[ 3 ]Local aRet:={}  Local nX := 0                                                    If Empty(aHeader)	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿	//³ Montagem do aHeader                                          ³	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ	DbSelectArea("SX3")	DbSetOrder(1)	MsSeek("SDE")	While ( !EOF() .And. SX3->X3_ARQUIVO == "SDE" )		If X3USO(SX3->X3_USADO) .AND. cNivel >= SX3->X3_NIVEL .And. !"DE_CUSTO"$SX3->X3_CAMPO			aadd(aHeader,{ TRIM(X3Titulo()),;			SX3->X3_CAMPO,;			SX3->X3_PICTURE,;			SX3->X3_TAMANHO,;			SX3->X3_DECIMAL,;			SX3->X3_VALID,;			SX3->X3_USADO,;			SX3->X3_TIPO,;			SX3->X3_F3,;			SX3->X3_CONTEXT })		EndIf		DbSelectArea("SX3")		dbSkip()	EndDo		//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿	//³ Adiciona os campos de Alias e Recno ao aHeader para WalkThru.³	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ	ADHeadRec("SDE",aHeader)EndIfIf Empty(aCols)	dbSelectArea("SDE")	Aadd(aCols,{SDE->DE_ITEMNF,{}})	For nX := 1 To 5				Aadd(aCols[1][2],{"0"+Alltrim(STR(nX)) , 20 , "CC00"+Alltrim(STR(nX)) , "" , "" , "" , "SDE" , 0 , .F.})	Next nXEndIf	//....é necessario retornar o aHEADER e o aCOLS em um  arrayaAdd(aRet,aHeader)aAdd(aRet,aCols) Return aRet