Cross Segmento - Backoffice Linha Protheus - SIGAATF Utilização da rotina automática do cadastro de Bens de Terceiros

Dúvida
Exemplo de utilização da rotina automática do cadastro de Bens de Terceiros

Ambiente
Protheus – Ativo Fixo – A partir da versão 11.80


Solução
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