MATA125 - Contrato de Parceria

User Function TMATA125()  Local aCab   := {}Local aItens := {}  Local cDoc   := ""  Local nX     := 0Private	lMsErroAuto := .F.   ConOut(Repl("-",80))ConOut(PadC("Rotina Automática para o Contrato de Parceria",80))PREPARE ENVIRONMENT EMPRESA "09" FILIAL "01" MODULO "COM"    //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Inclusao                                            |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Verifica numero da CP       |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ dbSelectArea("SC3")dbSetOrder(1)MsSeek(xFilial("SC3")+"zzzzzz",.T.)dbSkip(-1)cDoc := SC3->C3_NUMIf Empty(cDoc)	cDoc := StrZero(1,Len(SC3->C3_NUM))Else	cDoc := Soma1(cDoc)EndIfaadd(aCab,{"C3_FILIAL", xFilial("SC3"), NIL})aadd(aCab,{"C3_NUM",cDoc,NIL})aadd(aCab,{"C3_EMISSAO",dDataBase})aadd(aCab,{"C3_FORNECE" ,"1     " ,NIL})aadd(aCab,{"C3_LOJA","01",NIL})aadd(aCab,{"C3_COND" ,"001" ,NIL})aadd(aCab,{"C3_MOEDA","1",NIL})	        For nX := 1 To 2	aLinha := {}       	aadd(aLinha,{"C3_FILIAL",xFilial("SC3"),Nil})	aadd(aLinha,{"C3_ITEM",StrZero(nX,len(SC3->C3_ITEM)),Nil})  	aadd(aLinha,{"C3_PRODUTO"  ,"5",Nil})	aadd(aLinha,{"C3_QUANT",2,Nil})	aadd(aLinha,{"C3_PRECO",135,Nil})	aadd(aLinha,{"C3_TOTAL",270,Nil})			aadd(aLinha,{"C3_DATPRI",dDataBase,Nil})	aadd(aLinha,{"C3_DATPRF",dDataBase,Nil})	aadd(aItens,aLinha)Next nX 	  MSExecAuto( {|x,y,z| mata125(x,y,z)},aCab,aItens,3) 			If lMsErroAuto	MostraErro()Else	MsgAlert("Incluido com sucesso! "+cDoc)Endif  //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Alteração                                           |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   aCab   := {}  aItens := {}aadd(aCab,{"C3_FILIAL", xFilial("SC3"), NIL})aadd(aCab,{"C3_NUM",cDoc,NIL})aadd(aCab,{"C3_EMISSAO",dDataBase})aadd(aCab,{"C3_FORNECE" ,"1     " ,NIL})aadd(aCab,{"C3_LOJA","01",NIL})aadd(aCab,{"C3_COND" ,"001" ,NIL})aadd(aCab,{"C3_MOEDA","1",NIL})	        For nX := 1 To 2	aLinha := {}       	aadd(aLinha,{"C3_FILIAL",xFilial("SC3"),Nil})     	aadd(aLinha,{"LINPOS","C3_ITEM",StrZero(nX,len(SC3->C3_ITEM)),Nil})  	aadd(aLinha,{"AUTDELETA","N",Nil})	aadd(aLinha,{"C3_PRODUTO"  ,"5",Nil})	aadd(aLinha,{"C3_QUANT",3,Nil})	aadd(aLinha,{"C3_PRECO",130,Nil})	aadd(aLinha,{"C3_TOTAL",390,Nil})			aadd(aLinha,{"C3_DATPRI",dDataBase,Nil})	aadd(aLinha,{"C3_DATPRF",dDataBase,Nil})	aadd(aItens,aLinha)Next nX 	  MSExecAuto( {|x,y,z| mata125(x,y,z)},aCab,aItens,4) 			If lMsErroAuto	MostraErro()Else	MsgAlert("Alterado com sucesso! "+cDoc)Endif             //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Exclusão                                            |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙMSExecAuto( {|x,y,z| mata125(x,y,z)},aCab,aItens,5) If lMsErroAuto	MostraErro()Else	MsgAlert("Excluído com sucesso! "+cDoc)Endif  MsgAlert("Fim da Rotina Automática! "+Time())	   RESET ENVIRONMENT	  	Return