Histórico da Página

#INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function ROT_MATA175()Local dDataL:=DATE()Local aLibera	:= {}Local cNumCQ	:= "SK0005" // Numero do movimento criado anteriormenteLocal cProd		:= "1"+Space(14)Local cLocal	:= "98"PRIVATE lMsErroAuto := .F.//------------------------//| Abertura do ambiente |//------------------------PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" TABLES "SB1","SD7"                        dDataL:= dDataBaseConOut(Repl("-",80))ConOut(PadC("Teste -  Baixas do Controle de Qualidade (CQ)",80))ConOut("Inicio: "+Time())//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Teste de Inclusao                                            |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ                                DbGoTop()dbSeek(xFilial()+cNumCq+cProd+cLocal)If !Found() .Or. SD7->D7_TIPO != 0	ReturnEndifaAdd(aLibera,{	{"D7_TIPO"  	,1  	 ,Nil},;  // 1=Libera o item do CQ / 2=Rejeita o item do CQ    			{"D7_DATA"  	,dDataL  ,Nil},;  //				{"D7_QTDE"  	,1       ,Nil},;  //				{"D7_OBS"  		,""      ,Nil},;  //				{"D7_QTSEGUM"	,3  	 ,Nil},;  //				{"D7_MOTREJE" 	,""  	 ,Nil},;  //				{"D7_LOCDEST" 	,"01"    ,Nil},;  //				{"D7_SALDO"  	,NIL	 ,Nil},;  //				{"D7_SALDO2"  	,NIL	 ,Nil},;                                                                                     {"D7_ESTORNO"  	,NIL	 ,Nil}})  //  MSExecAuto({|x,y,z| MATA175(x,y)},aLibera,4) 	If !lMsErroAuto	ConOut("Incluido com sucesso! ")	Else	ConOut("Erro na inclusao!")EndIfConOut("Fim  : "+Time())Return Nil