Tiempo aproximado de lectura 00:05:00 min
Duda
Ejemplo de Execauto - Transferencia de Activos ATFA060
Entorno
Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Activo Fijo (SIGAATF) - A partir de la versión 11.80
Solución
A continuación se muestra un ejemplo del Execauto en la rutina ATFA060
User Function MyATFA060()
Local aDadosAuto := {} // Array com os dados a serem enviados pela MsExecAuto() para gravação automática.
Local aParamAuto := {}
Private lMsHelpAuto := .F. // Determina se as mensagens de help devem ser direcionadas para o arq. de log.
Private lMsErroAuto := .F. // Determina se houve alguma inconsistência na execução da rotina em relação aos parâmetros informados
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ O exemplo abaixo foi considerado passando somente dados de conta contábil e centro de custo, caso ³
//³ necessário passar os campos referentes a itens contábeis e classes de valores. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dDatabase := cTod("08/02/2010")
aDadosAuto:= { {'N3_FILIAL' ,ALLTRIM(xfilial("SN3")),Nil},; // Código da filial
{'N3_CBASE' , "0000000002" , Nil},; // Código base do ativo
{'N3_ITEM' , "0001" , Nil},; // Item sequencial do código base do ativo
{'N3_TIPO' , "10" , Nil},; // Tipo do Ativo
{'N4_DATA' , dDatabase , Nil},; // Data de aquisição do ativo
{'N3_CCUSTO' , "123" , Nil},; // Centro de Custo de Despesa
{'N3_CCONTAB' , "123" , Nil},; // Conta Contábil
{'N3_CCORREC' , "123" , Nil},; // Conta de Correção do Bem
{'N3_CDEPREC' , "123" , Nil},; // Conta Despesa Depreciação
{'N3_CCDEPR' , "123" , Nil},; // Conta Depreciação Acumulada
{'N3_CDESP' , "123" , Nil},; // Conta Correção Depreciação
{'N3_CUSTBEM' , "123" , Nil},; // Centro de Custo da Conta do Bem
{'N3_CCCORR' , "123" , Nil},; // Centro Custo Correção Monetária
{'N3_CCDESP' , "123" , Nil},; // Centro Custo Despesa Depreciação
{'N3_CCCDEP' , "123" , Nil},; // Centro Custo Despesa Acumulada
{'N3_CCCDES' , "123" , Nil},; // Centro Custo Correção Depreciação
{'N1_GRUPO' , "GR01" , Nil},; // Código do Grupo do Bem
{'N1_LOCAL' , "LOCAL" , Nil},; // Localização do Bem
{'N1_NFISCAL' , "NF001" , Nil},; // Número da NF
{'N1_NSERIE' , "SERIE" , Nil},; // Série da NF
{'N1_TAXAPAD' , "999999" , Nil}} // Código da Taxa Padrão
{'TPN_CTRAB' , "CT01 " , Nil},; // Centro de Trabalho do Bem, utilizado somente quando integrado ao SIGAMNT
{'TPN_POSCON' , "150" , Nil},; // Primeiro Contador do Bem, utilizado somente quando integrado ao SIGAMNT
{'TPN_POSCO2' , "100" , Nil}} // Segundo Contador do Bem, utilizado somente quando integrado ao SIGAMNT
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Caso deseje passar valores para os campos, Grupo, Local, NF/Série Taxa padrão, considerar ³
//³ como no exemplo acima utilizando os campos correspondentes da tabela SN1. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
// Parâmetros das perguntas da rotina atfa060
aAdd( aParamAuto, {"MV_PAR01", 1} ) //Pergunta 01 - Contabiliza ? 1 = Sim ; 2 = Não
aAdd( aParamAuto, {"MV_PAR02", 2} ) //Pergunta 02 - Mostra Lanc Contab ? 1 = Sim ; 2 = Não
aAdd( aParamAuto, {"MV_PAR03", 2} ) //Pergunta 02 - Aglut Lançamentos ? 1 = Sim ; 2 = Não
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
// O quarto parâmetro pode ser configurado com os seguintes estados.
//.T. = Espelhar.
//.F. = Atualizar.
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
MSExecAuto({|x, y, w, z| AtfA060(x, y, w, z)},aDadosAuto, 4 ,, .F.)
If lMsErroAuto
lRetorno := .F.
MostraErro()
Else
lRetorno:=.T.
EndIf
ReturnConozca mas:
https://tdn.totvs.com/pages/releaseview.action?pageId=200902359
0 Comentarios