Rotina Automática ATFA320 - Cadastro de Bens de Terceiros -- 117668

User Function  Myatfa320()Local aItens := {}Local aDadosAuto := {}		// Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica do ativo em 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 se as mensagens de help devem ser direcionadas para o arq. de logPrivate lMsErroAuto := .f.	// Determina se houve alguma inconsistencia na execucao da rotina                                                            nOpcao := Aviso("Atencao - Bens de Terceiros", "Incluir / Alterar ou Excluir ?", {"Incluir", "Alterar", "Excluir"})If 	   nOpcao == 1 //Inclusao CODIGO 000001  //NESTE CASO O CONTROLE DE NUMERACAO DEVE ESTAR NA ROTINA DO 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'  	,'INCLUSAO DO CONTATO' ,NIL} } )				 	MSExecAuto( {|a,b,c,x,y,z| ATFA320(a,b,c,x,y,z)} ,"SNO",0,3,3,aCab,aItens)	ElseIf nOpcao == 2  //Alteracao	aAdd(aItens,{  {'NO_SEQ'  		,'001'   , NIL},;  // em alteracao o campo Seq deve ser informado	  	           {'NO_STATUS'  	,'2'   , NIL},;	       	       {'NO_VIGINI'  	,CTOD('01/01/12'), NIL},; 	           	   {'NO_VIGFIM'   	,CTOD('31/12/12'), NIL},;	        		{'NO_CONTATO'  	,'ALTERACAO DO CONTATO' ,NIL} } )				 		aAdd(aItens,{  {'NO_SEQ'  		,'002'   , NIL},;  // em alteracao o campo Seq deve ser informado	               {'NO_STATUS'  	,'1'   , NIL},;	               {'NO_VIGINI'  	,CTOD('31/01/13'), NIL},; 	               {'NO_VIGFIM'   	,CTOD('31/12/13'), NIL},;	               {'NO_CONTATO'  	,'NOVO CONTATO NA ALTERACAO' ,NIL} } )				 		dbSelectArea("SNO")	dbSetOrder(1)	If dbSeek(xFilial()+'000001')  // EM CASO DE ALTERACAO USUARIO DEVERA POSICIONAR NO REGISTRO A SER ALTERADO		MSExecAuto( {|a,b,c,x,y,z| ATFA320(a,b,c,x,y,z)} ,"SNO",0,4,4,aCab,aItens)		EndIf	ElseIf nOpcao == 3  //Exclusao	dbSelectArea("SNO")	dbSetOrder(1)	If dbSeek(xFilial()+'000001')  //EM CASO DE EXCLUSAO USUARIO DEVERA POSICIONAR NO REGISTRO A SER EXCLUIDO		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