Base de conhecimento
Encontre respostas para suas dúvidas em quatro fontes de conhecimento diferentes ao mesmo tempo, simplificando o processo de pesquisa.
  1. Central de Atención TOTVS
  2. Cross Segmentos
  3. TOTVS Backoffice (Línea Protheus) - MI
  4. Activo Fijo (SIGAATF)
  5. Registros
Central do Cliente

Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Activo Fijo (SIGAATF) - MSExecAuto Inclusión ATFA012 Activos Inmovilizados

relogio_tempo_leitura_2.png Tiempo aproximado de lectura 00:05:00 min

Duda
¿Cómo se configura la rutina ATFA012 para uso con Execauto?

Entorno
Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Activo Fijo (SIGAATF) - A partir de la versión 12.1.2210

Solución
Ejemplo de Execauto para la rutina ATFA012 - Inclusión de Activos 

Inclusión

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
#INCLUDE "Protheus.CH"
#include "rwmake.ch"
#include "TOTVS.ch"
#include "TBICONN.ch"
 
User Function MyAtfa012
    Local aArea := GetArea()
    Local cBase := "ATFX01"//"0000000000"
    Local cItem := "0002"
    Local nQtd := 1
    Local cChapa := "AJEDS10"//"00000"
    Local cPatrim := "N"
    Local cTipo := "01"//"01"
 
    Local cGrupo := ""
    Local dAquisic //:= dDataBase //:= CTOD("01/06/20")//dDataBase
    Local dIndDepr //:= RetDinDepr(dDataBase)
    Local cDescric := "Teste 01"
 
    Local cHistor := "TESTE "
    Local cContab := "11101"
    Local cCusto := "CDL"
    Local cSubCon := "000000001"
    Local cClvlCon := "000000000"
 
    Local nValor := 1000
    Local nTaxa := 10
    Local nTamBase //:= TamSX3("N3_CBASE")[1]
    Local nTamChapa //:= TamSX3("N3_CBASE")[1]
 
    Local aParam := {}
    Local aCab := {}
    Local aItens := {}
 
    Private lMsErroAuto := .F.
    Private lMsHelpAuto := .T.
 
    PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "ATF" TABLES "SN1","SN3"
 
        dAquisic := dDataBase //:= CTOD("01/06/20")//dDataBase
        dIndDepr := RetDinDepr(dDataBase)
 
        DBSelectArea(aArea)
        nTamBase := TamSX3("N3_CBASE")[1]
        nTamChapa := TamSX3("N3_CBASE")[1]
 
        aCab := {}
        AAdd(aCab,{"N1_CBASE" , cBase ,NIL})
        AAdd(aCab,{"N1_ITEM" , cItem ,NIL})
        AAdd(aCab,{"N1_AQUISIC", dDataBase ,NIL})
        AAdd(aCab,{"N1_DESCRIC", cDescric ,NIL})
        AAdd(aCab,{"N1_QUANTD" , nQtd ,NIL})
        AAdd(aCab,{"N1_CHAPA" , cChapa ,NIL})
        AAdd(aCab,{"N1_PATRIM" , cPatrim ,NIL})
        AAdd(aCab,{"N1_GRUPO" , cGrupo ,NIL})
        //Coloque os campos desejados aqui
 
        aItens := {}
        //-- Preenche itens
 
 
        AAdd(aItens,{;
        {"N3_CBASE" , cBase ,NIL},;
        {"N3_ITEM" , cItem ,NIL},;
        {"N3_TIPO" , cTipo ,NIL},;
        {"N3_BAIXA" , "0" ,NIL},;
        {"N3_HISTOR" , cHistor ,NIL},;
        {"N3_CCONTAB" , cContab ,NIL},;
        {"N3_CUSTBEM" , cCusto ,NIL},;
        {"N3_CDEPREC" , cContab ,NIL},;
        {"N3_CDESP" , cContab ,NIL},;
        {"N3_CCORREC" , cContab ,NIL},;
        {"N3_CCUSTO" , cCusto ,NIL},;
        {"N3_DINDEPR" , dIndDepr ,NIL},;
        {"N3_VORIG1" , nValor ,NIL},;
        {"N3_TXDEPR1" , nTaxa ,NIL},;
        {"N3_VORIG2" , nValor ,NIL},;
        {"N3_TXDEPR2" , nTaxa ,NIL},;
        {"N3_VORIG3" , nValor ,NIL},;
        {"N3_TXDEPR3" , nTaxa ,NIL},;
        {"N3_VORIG4" , nValor ,NIL},;
        {"N3_TXDEPR4" , nTaxa ,NIL},;
        {"N3_VORIG5" , nValor ,NIL},;
        {"N3_SUBCCON" , cSubCon ,NIL},;
        {"N3_CLVLCON" , cClvlCon ,NIL},;
        {"N3_TXDEPR5" , nTaxa ,NIL};
        })
        //Coloque os campos desejados aqui
 
        Begin Transaction
 
            MSExecAuto({|x,y,z| Atfa012(x,y,z)},aCab,aItens,3,aParam)
            If lMsErroAuto
 
            MostraErro()
                DisarmTransaction()
            Endif
        End Transaction
 
        RestArea(aArea)
    RESET ENVIRONMENT
 
Return
¿Fue útil este artículo?
Usuarios a los que les pareció útil: 0 de 0

0 Comentarios

Inicie sesión para dejar un comentario.
Como podemos ajudar?
Entre em contato e fale conosco!
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Rellene los campos siguientes para iniciar el chat:

Chat _

NC#o encontrou o que procura?