Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
MT103RTE - Rateio por Centro de Custo
MT103RTE - Rateio por Centro de Custo

Ponto-de-Entrada: MT103RTE - Rateio por Centro de Custo
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição:
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.	
Eventos

Programa Fonte
MATA103.PRW
Sintaxe

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

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
PARAMIXB[1]Array of RecordCabeçalho do Rateio por Centro de Custo
PARAMIXB[2]Array of Record Ítens do Rateio por Centro de Custo
PARAMIXB[3]NuméricoNúmero do item
Retorno
    aRet(array_of_record)
  • array contendo o Cabeçalho e os ítems do Rateio por Centro de Custo
Observações

Exemplos
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         
Variáveis
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão