Histórico da Página

User Function  Myatfa320()Local aItens := {}Local aDadosAuto := {}		// Array comcon oslos dadosdatos aque seremserán enviados por pelala MsExecAuto() para gravacaograbación automaticaautomática dodel ativoactivo emen terceiroLocal nOpcaoLocal aCab := { {'NO_FILIAL' 	,'01 ' ,NIL},;                 {'NO_CODIGO' 	,'000001' ,NIL},;                 {'NO_CBASE' 	,'1234567890' ,NIL},;                 {'NO_ITEM' 	,'1234' ,NIL},;                 {'NO_FORNEC'	,'000000' ,NIL},;                 {'NO_LOJA' 	,'00' ,NIL},;                 {'NO_TIPCES' 	, 'C' ,NIL} }                  				 Private lMsHelpAuto := .f.	// Determina sesi aslos mensagensmensajes de help devemse serdeben direcionadasenviar paraal o arqarch. de logPrivate lMsErroAuto := .f.	// Determina sesi houvehubo algumaalguna inconsistencia naal execucaoejecutar dala rotinarutina                                                            nOpcao := Aviso("Atencao - BensBienis de TerceirosTerceros", "Incluir / Alterar ouo Excluir ?", {"Incluir", "Alterar", "Excluir"})If 	   nOpcao == 1 //InclusaoInclusión CODIGO 000001  //NESTEEN ESTE CASO OEL CONTROLECONTROL DE NUMERACAONUMERACIÓN DEVEDEBE ESTAR EN NALA ROTINARUTINA DODEL USUARIO	aAdd(aItens,{  {'NO_SEQ'  		,'001'   , NIL},;    	           {'NO_STATUS'  	,'1'   , NIL},;        	       {'NO_VIGINI'  	,CTOD('01/01/12'), NIL},;             	   {'NO_VIGFIM'   	,CTOD('31/12/12'), NIL},; 					{'NO_CONTATO'  	,'INCLUSAOINCLUSIÓN DODEL CONTATOCONTACTO' ,NIL} } )				 	MSExecAuto( {|a,b,c,x,y,z| ATFA320(a,b,c,x,y,z)} ,"SNO",0,3,3,aCab,aItens)	ElseIf nOpcao == 2  //AlteracaoAlteracion	aAdd(aItens,{  {'NO_SEQ'  		,'001'   , NIL},;  // emen alteracaoalteración oel campo SeqSec devese serdebe informadoinformar	  	           {'NO_STATUS'  	,'2'   , NIL},;	       	       {'NO_VIGINI'  	,CTOD('01/01/12'), NIL},; 	           	   {'NO_VIGFIM'   	,CTOD('31/12/12'), NIL},;	        		{'NO_CONTATO'  	,'ALTERACAOALTERACION DODEL CONTATOCONTACTO' ,NIL} } )				 		aAdd(aItens,{  {'NO_SEQ'  		,'002'   , NIL},;  // emen alteracaoalteracion oel campo SeqSec devese serdebe informadoinformar	               {'NO_STATUS'  	,'1'   , NIL},;	               {'NO_VIGINI'  	,CTOD('31/01/13'), NIL},; 	               {'NO_VIGFIM'   	,CTOD('31/12/13'), NIL},;	               {'NO_CONTATO'  	,'NOVONUEVO CONTACTO CONTATOEN NALA ALTERACAOALTERACION' ,NIL} } )				 		dbSelectArea("SNO")	dbSetOrder(1)	If dbSeek(xFilial()+'000001')  // EMEN CASO DE ALTERACAOALTERACION USUARIO DEVERADEBE POSICIONAR EN NOEL REGISTRO AQUE SERSE ALTERADOALTERARÁ		MSExecAuto( {|a,b,c,x,y,z| ATFA320(a,b,c,x,y,z)} ,"SNO",0,4,4,aCab,aItens)		EndIf	ElseIf nOpcao == 3  //ExclusaoExclusión	dbSelectArea("SNO")	dbSetOrder(1)	If dbSeek(xFilial()+'000001')  //EMEN CASO DE EXCLUSAOEXCLUSION USUARIO DEVERADEBE POSICIONARSE POSICIONAREN NOEL REGISTRO AQUE SERSE EXCLUIDOEXCLUIRÁ		MSExecAuto( {|a,b,c,x,y,z| ATFA320(a,b,c,x,y,z)} ,"SNO",0,5,5,aCab,aItens)		EndIfEndIf If lMsErroAuto	lRetorno := .F.	MostraErro()Else	lRetorno:=.T.EndIfReturn