Histórico da Página

For nX := 1 To 

Len(aCCusto)
aLinha := {}

aAdd(aLinha, {"

CH_

FILIAL" , xFilial("

SCH"), Nil})

aAdd(aLinha, {"CH_ITEM" , PadL(nX, TamSx3("CH_ITEM")[1], "0"), Nil})

aAdd(aLinha, {"

CH_

PERC" ,

 aCCusto[nX][1], Nil})

aAdd(aLinha, {"

CH_

CC" ,

 aCCusto[nX][2], Nil})

aAdd(aRatCC[2][2]

, aClone(aLinha))
Next nX
// pa existente en el financiero.
aLinha := {}
aAdd(aLinha, {"

FIE_FILIAL"

, xFilial("

FIE"),

                                 Nil})
aAdd(aLinha, {"

FIE_

CART", 

  "P",                                            Nil}) // Cartera por pagar
aAdd(aLinha, {"

FIE_

PEDIDO", 

cDoc,                                           Nil}) // Número pedido de compras
aAdd(aLinha, {"

FIE_

PREFIX", PadR("A", 

TamSX3("

FIE_PREFIX")[1]),             Nil}) //Prefijo
aAdd(aLinha, {"

FIE_

NUM", 

   PadR("PAPC01", TamSX3("FIE_NUM")[1]),           Nil}) //Número título
aAdd(aLinha, {"

FIE_

PARCEL"

, PadR(

"1", TamSX3("

FIE_

PARCEL")[1]), 

            Nil}) //Cuota
aAdd(aLinha, {"

FIE_

TIPO", 

  PadR("

PA"

, 

TamSX3("FIE_TIPO")[1]),              Nil}) //Tipo = PA
aAdd(aLinha, {"

FIE_

FORNEC"

, PadR("

001"

, 

TamSX3("FIE_FORNEC")[1]),        Nil}) // Proveedor
aAdd(aLinha, {"FIE_

LOJA",   PadR("01", 

TamSX3("FIE_LOJA")

[1]),              Nil}) //Tienda
aAdd(aLinha, {"FIE_VALOR",  300,                                            Nil}) // Valor del pa que está vinculado al pedido
aAdd(aAdtPC, aClone(aLinha))  

MSExecAuto({|a,b,c,d,e,f,g,h| MATA120(a,b,c,d,e,f,g,h)},1,aCabec,aItens,nOpc,.F.,aRatCC,aAdtPC)
If !lMsErroAuto
ConOut("Alterado PC: "+cDoc)
Else
ConOut("¡Error en la modificación!")
MostraErro()
EndIf

RESET ENVIRONMENT

Return

| MATA120(a,b,c,d,e

)},1,aCabec,aItens,nOpc,.F.

)

If !lMsErroAuto
ConOut("

Borrado PC: "+cDoc)
Else
ConOut("

¡Error en 

el 

borrado!")
MostraErro()
EndIf

RESET ENVIRONMENT

Return

#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"

User FUnctionFunction EXEC121EXEC120()

Local aCabec := {}
Local aItens := {}
Local aLinha := {}
Local aRatCC := {}
Local aRatPrj := {}
Local aAdtPC := {}
Local aItemPrjaCabec 	:= {{"01","02"},{"02","01"}} //Projeto, Tarefa
Local aCCustoaItens 	:= {{40,"01","101010","333330","CL0001"},{60,"02","101011","333330","CL0001"}} //Porcentagem,Centro de Custo, Conta Contabil, Item Conta, CLVL}
Local aLinha 	:= {}
Local nX 		:= 0
Local cDoc := ""
Local nOpc := 4

PRIVATE lMsErroAuto := .F.

PREPARE ENVIRONMENT EMPRESA "01" FILIAL "1001" MODULO "COM"

dbSelectArea("SC7")

//Teste de alteração
cDoc := "000054" //Informar PC ou AE (Alteração / Exclusão)

		:= ""
Local nOpc		:= 3

PRIVATE lMsErroAuto := .F.

PREPARE ENVIRONMENT EMPRESA "99" SUCURSAL "01" MÓDULO "COM" 

dbSelectArea("SC7")

//Prueba de inclusión 
If nOpc == 3
	cDoc := GetSXENum("SC7","C7_NUM")		
	SC7->(dbSetOrder(1))		
	While SC7->(dbSeek(xFilial("SC7")+cDoc))			
		ConfirmSX8()			
		cDoc := GetSXENum("SC7","C7_NUM")	
	EndDo
Endif

aadd(aCabec,{"C7_NUM" 		,cDoc})
aadd(aCabec,{"C7_EMISSAO" 	,dDataBase})
aadd(aCabec,{"C7_FORNECE" 	,"COM002"})
aadd(aCabec,{"C7_NUMLOJA" 		,cDoc"01"})
aadd(aCabec,{"C7_EMISSAOCOND" 		,dDataBase"000"})
aadd(aCabec,{"C7_FORNECECONTATO" 	,"001 AUTO"})
aadd(aCabec,{"C7_LOJAFILENT" 	,"01"cFilAnt})
	
For nX := 1 To 2 
	aLinha := {}
	aadd(aCabecaLinha,{"C7_CONDITEM" ,"006"}) // Condição de pagamento que permite adiantamento
aadd(aCabecStrZero(nX,TamSX3("C7_ITEM")[1]),Nil})
	aadd(aLinha,{"C7_CONTATOPRODUTO" ,"AUTO01",Nil})
	aadd(aCabecaLinha,{"C7_FILENTQUANT" ,cFilAnt1 ,Nil})

aLinha := {}

// Alterar item existente
	aadd(aLinha,{"C7_ITEMPRECO" ,"0001"nX*1000 ,Nil})
	aadd(aLinha,{"C7_PRODUTOTOTAL" ,"0001"nX*1000 ,Nil})
) 
	
	If nX == 1
		aadd(aLinha,{"C7_QUANTVLDESC" ,10150 ,Nil}) 
	Endif

	aadd(aItens,aLinha,{"C7_PRECO" ,10 ,Nil})
aadd(aLinha,{"C7_TOTAL" ,100 ,Nil})
aAdd(aLinha,{"LINPOS","C7_ITEM" ,"0001"})
aAdd(aLinha,{"AUTDELETA","N" ,Nil})
aadd(aItens,aLinha)

aLinha := {}
// Incluir novo item no pedido
aadd(aLinha,{"C7_ITEM" ,"0002" ,Nil})
aadd(aLinha,{"C7_PRODUTO" ,"0002",Nil})
aadd(aLinha,{"C7_QUANT" ,20,Nil})
aadd(aLinha,{"C7_PRECO" ,10 ,Nil})
aadd(aLinha,{"C7_TOTAL" ,200 ,Nil}) 

aadd(aItens,aLinha)

//alterado Rateio Centro de Custo do item existente
aAdd(aRatCC, Array(2))
aRatCC[1][1] := "0001"
aRatCC[1][2] := {}

For nX := 1 To Len(aCCusto)
aLinha := {}
aAdd(aLinha, {"CH_FILIAL" , xFilial("SCH"), Nil})
aAdd(aLinha, {"CH_ITEM" , PadL(nX, TamSx3("CH_ITEM")[1], "0"), Nil})
aAdd(aLinha, {"CH_PERC" , aCCusto[nX][1], Nil})
aAdd(aLinha, {"CH_CC" , aCCusto[nX][2], Nil})

aAdd(aRatCC[1][2], aClone(aLinha))
Next nX

//Rateio Centro de Custo novo item
aAdd(aRatCC, Array(2))
aRatCC[2][1] := "0002"
aRatCC[2][2] := {}
) 
Next nX 

MSExecAuto({|a,b,c,d,e,f,g| MATA120(a,b,c,d)},1,aCabec,aItens,nOpc)  
	
If !lMsErroAuto 
	ConOut("Se incluyó PC: " + cDoc) 
Else
	ConOut("¡Error en la inclusión!")   
	MostraErro()
EndIf

RESET ENVIRONMENT

Return
  

#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"

User FUnctionFunction EXEC121EXEC120()

Local aCabec 	:= {}
Local aItens 	:= {}
Local aLinha 	:= {}
Local aRatCCnX 		:= {}0
Local aRatPrjcDoc 		:= {}""
Local aAdtPC nOpc		:= {}3

LocalPRIVATE aItemPrjlMsErroAuto := {{"01","02"},{"02","01"}} //Projeto, Tarefa
Local aCCusto := {{40,"01","101010","333330","CL0001"},{60,"02","101011","333330","CL0001"}} //Porcentagem, Centro de Custo, Conta Contábil, Item Conta, CLVL
Local nX := 0
Local nOpc := 5
Local cDoc := "000054" 

PREPARE ENVIRONMENT EMPRESA "01" FILIAL "1001" MODULO "COM"

dbSelectArea("SC7").F.

PREPARE ENVIRONMENT EMPRESA "99" SUCURSAL "01" MÓDULO "COM" 

dbSelectArea("SC7")

//Prueba de inclusión 
If nOpc == 3
	cDoc := GetSXENum("SC7","C7_NUM")		
	SC7->(dbSetOrder(1))		
	While SC7->(dbSeek(xFilial("SC7")+cDoc))			
		ConfirmSX8()			
		cDoc := GetSXENum("SC7","C7_NUM")	
	EndDo
Endif

aadd(aCabec,{"C7_NUM" 		,cDoc})
aadd(aCabec,{"C7_EMISSAO" 	,dDataBase})
aadd(aCabec,{"C7_FORNECE" 	,"001 COM002"})
aadd(aCabec,{"C7_LOJA" 		,"01"})
aadd(aCabec,{"C7_COND" 		,"001000"})
aadd(aCabec,{"C7_CONTATO" 	,"AUTO"})
aadd(aCabec,{"C7_FILENT" 	,cFilAnt})
aadd(aCabec,{"C7_DESC1" 	,10})
aadd(aCabec,{"C7_DESC2" 	,20})
aadd(aCabec,{"C7_DESC3" 	,50})

For nX := 1 To 2 1
	aLinha := {}

	aadd(aLinha,{"C7_ITEM" ,StrZero(nX,4) TamSX3("C7_ITEM")[1]),Nil})
	aadd(aLinha,{"C7_PRODUTO" ,StrZero(nX,4),"01",Nil})
	aadd(aLinha,{"C7_QUANT" ,1 ,Nil})
	aadd(aLinha,{"C7_PRECO" ,150nX*1000 ,Nil})
	aadd(aLinha,{"C7_TOTAL" ,150nX*1000 ,Nil})
aadd(aItens,aLinha) 
Next nX 

MSExecAuto({|a,b,c,d,e,f,g| MATA120(a,b,c,d,e)},1,aCabec,aItens,nOpc,.F.)  
	
If !lMsErroAuto 
	ConOut("ExclusaoSe incluyó PC: " + cDoc) 
Else
	ConOut("Erro¡Error en nala exclusãoinclusión!")   
	MostraErro()
EndIf

RESET ENVIRONMENT

Return