Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 11

changes.mady.by.user Julyane do Vale Galo

Gravado em

comparado com

Nova versão 12

changes.mady.by.user Julyane do Vale Galo

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Propriedades de página

CONTEÚDO

  1. Visão Geral
  2. Exemplo de utilização
    1. Inclusão
    2. Alteração
  3. Tabelas utilizada


01. VISÃO GERAL


Exemplos de execução via rotina automática na rotina de lançamentos contábeis automáticos(CTBA102), mostrando exemplos de utilização e tabelas relacionadas.


02. EXEMPLO DE UTILIZAÇÃO

Abaixo mostraremos exemplos de utilização.


...

Descrição

...

Opções da Rotina automática de lançamentos contábeis no ambiente Contabilidade Gerencial (SIGACTB).

...

Exemplo

...

#INCLUDE "PROTHEUS.CH"

//-------------------------------------------------------------------
/*/{Protheus.doc} CargaCT2    

...

/*/
//-------------------------------------------------------------------

User Function CargaCT2()

Local oRegua

Local lEnd := .T.

//-------------------------------------------------------------------

...

Informações
titleImportante

Na utilização de execAuto considerar os seguintes critérios:

...

 - Passar o campo CT2_CONVER como 15555, demais moedas devem ser feitos

...

pela inclusão de um novo aItens

...

 -

...

Para alteração de registro passe novamente o

...

aCab



Aviso
titleAviso

A Execução automática está disponível apenas para Inclusão e Alteração de lançamentos contábeis.


Inclusão:


Bloco de código
languagepy
titlemyctba102inc
linenumberstrue
collapsetrue
#INCLUDE "PROTHEUS.CH"

...

// --------------------------------------------------------------------------

If MsgYesNo("Deseja realizar a carga dos dados ?")

    oRegua := MsNewProcess():New({|lEnd| GravaCTB(oRegua,@lEnd) },"Processando","",.T.)

    oRegua:Activate()

    MsgAlert("Carga Finalizada")

EndIf

Return

//-------------------------------------------------------------------

...


/*/{Protheus.doc}

...

 MyCTBA102Inc    

 Inclusão de Lançamento Automático CTBA102

@author Totvs
@since 29/11/2013

...


@version 1.0

...



/*/

...


//-------------------------------------------------------------------

...

Static Function GravaCTB(oObj,lEnd)

Local nX

Local aArea         := GetArea()

Local nDoc            := 1

Local lRet            := .T.

Local aCab            := {}

Local aItens        := {}

Local aLinha         := {}

...



User Function MyCTBA102Inc()

Local nX
Local aArea         := GetArea()
Local nDoc            := 1
Local lRet            := .T.
Local aCab            := {}
Local aItens        := {}
Local aLinha         := {}
Local dDataLanc     := ctod("28/11/2013")  

...


Local nLinha        := '001'

...




Private lMsErroAuto     := .F.

...


Private lMsHelpAuto     := .T.

...


Private CTF_LOCK        := 0

...


Private lSubLote         := .T.

...

oObj:SetRegua1(5)

oObj:IncRegua1("Gerando Documentos")

oObj:SetRegua1(nDoc)

For nX:=1 To nDoc

    If lEnd

        Exit

    EndIf

    oObj:IncRegua2("Documento " + cValToChar(nX) + " de "+ cValToChar(nDoc))

    aCab := {}

    aItem := {}

    

   /*-------------------------------------------------------------

    // ExecAuto de teste para inclusão de lançamento  

    //----------------------------------------------------------*/

    aAdd(aCab,  {'DDATALANC'     ,dDataBase        ,NIL} )

    aAdd(aCab,  {'CLOTE'         ,'333333'         ,NIL} )

    aAdd(aCab,  {'CSUBLOTE'         ,'001'         ,NIL} )

    aAdd(aCab,  {'CDOC'             ,'000001'         ,NIL} )

    aAdd(aCab,  {'CPADRAO'         ,''             ,NIL} )

    aAdd(aCab,  {'NTOTINF'         ,0                 ,NIL} )

    aAdd(aCab,  {'NTOTINFLOT'     ,0                 ,NIL} )

    

    aAdd(aItens,{  {'CT2_FILIAL'      ,'0101   '       , NIL},;

                   {'CT2_LINHA'      , nLinha          , NIL},;

                   {'CT2_MOEDLC'      ,'01'           , NIL},;

                   {'CT2_DC'           ,'3'           , NIL},;

                   {'CT2_DEBITO'      ,'101010100'     , NIL},;

                   {'CT2_CREDIT'      ,'201010100'     , NIL},;

                   {'CT2_VALOR'      , 3000          , NIL},;

                   {'CT2_ORIGEM'     ,'MSEXECAUT'    , NIL},;

                   {'CT2_HP'           ,''               , NIL},;

                   {'CT2_CONVER'    ,'11'         , NIL},;

                   {'CT2_HIST'       ,'MSEXECCT2'    , NIL} } )         

...




PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "CTB" TABLES "CT2"

    aCab := {}
    aItem := {}



    aAdd(aCab,  {'DDATALANC'     ,dDataBase        ,NIL} )
    aAdd(aCab,  {'CLOTE'         ,'333333'         ,NIL} )
    aAdd(aCab,  {'CSUBLOTE'         ,'001'         ,NIL} )
    aAdd(aCab,  {'CDOC'             ,'000001'         ,NIL} )
    aAdd(aCab,  {'CPADRAO'         ,''             ,NIL} )
    aAdd(aCab,  {'NTOTINF'         ,0                 ,NIL} )
    aAdd(aCab,  {'NTOTINFLOT'     ,0                 ,NIL} )

    

    aAdd(aItens,{  {'CT2_FILIAL'      ,'0101   '     , NIL},;
                   {'CT2_LINHA'      , nLinha        , NIL},;
                   {'CT2_MOEDLC'      ,'01'          , NIL},;
                   {'CT2_DC'           ,'3'          , NIL},;
                   {'CT2_DEBITO'      ,'101010100'   , NIL},;
                   {'CT2_CREDIT'      ,'201010100'   , NIL},;
                   {'CT2_VALOR'      , 3000          , NIL},;
                   {'CT2_ORIGEM'     ,'MSEXECAUT'    , NIL},;
                   {'CT2_HP'           ,''           , NIL},;
                   {'CT2_CONVER'    ,'11'         	 , NIL},;
                   {'CT2_HIST'       ,'MSEXECCT2'    , NIL} } )         

    MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 3)

    If lMsErroAuto
        lMsErroAuto := .F.
        MsgAlert("ERRO Lançamento" , "Teste Carga CT2")

...


		mostraErro()
        Exit
    Endif
RestArea(aArea)

RESET ENVIRONMENT

Return


Alteração:

Bloco de código
languagepy
titlemyctba102Alt
linenumberstrue
collapsetrue
#INCLUDE "PROTHEUS.CH"

//------

    

...

-------------------------------------------------------------

...


/

...

*/{Protheus.doc} MyCTBA102Alt    
 Inclusão de Lançamento Automático CTBA102

@author Totvs
@since 29/11/2013
@version 1.0
/*/
//----------------------------------------------------------

...

    aCab     := {}

    aItens     := {}

    aLinha := {}

    aAdd(aCab,  {'DDATALANC'     ,dDataBase        ,NIL} )

    aAdd(aCab,  {'CLOTE'         ,'333333'         ,NIL} )

    aAdd(aCab,  {'CSUBLOTE'         ,'001'         ,NIL} )

    aAdd(aCab,  {'CDOC'             ,'000001'         ,NIL} )

    aAdd(aCab,  {'CPADRAO'         ,''             ,NIL} )

    aAdd(aCab,  {'NTOTINF'         ,0                 ,NIL} )

    aAdd(aCab,  {'NTOTINFLOT'     ,0                 ,NIL} )

   

...

---------

User Function MyCTBA102Alt()

Local nX
Local aArea         := GetArea()
Local nDoc            := 1
Local lRet            := .T.
Local aCab            := {}
Local aItens        := {}
Local aLinha         := {}
Local dDataLanc     := ctod("28/11/2013")  
Local nLinha        := '001'


Private lMsErroAuto     := .F.
Private lMsHelpAuto     := .T.
Private CTF_LOCK        := 0
Private lSubLote         := .T.

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "CTB" TABLES "CT2"

	aCab     := {}
    aItens     := {}
    aLinha := {}

    aAdd(aCab,  {'DDATALANC'     ,dDataBase        ,NIL} )
    aAdd(aCab,  {'CLOTE'         ,'333333'         ,NIL} )
    aAdd(aCab,  {'CSUBLOTE'         ,'001'         ,NIL} )
    aAdd(aCab,  {'CDOC'             ,'000001'         ,NIL} )
    aAdd(aCab,  {'CPADRAO'         ,''             ,NIL} )
    aAdd(aCab,  {'NTOTINF'         ,0                 ,NIL} )
    aAdd(aCab,  {'NTOTINFLOT'     ,0                 ,NIL} )

   

    aAdd(aItens,{      {'CT2_FILIAL'      ,'0101   '           , NIL},;

...


                       {'CT2_LINHA'      , nLinha              , NIL},;

...


                       {'CT2_MOEDLC'      ,'01'               , NIL},;

...


                       {'CT2_DC'          ,'3'               , NIL},;

...


                       {'CT2_DEBITO'      ,'101010100'         , NIL},;

...


                       {'CT2_CREDIT'      ,'201010100'         , NIL},;

...


                       {'CT2_VALOR'      , 6000              , NIL},;

...


                       {'CT2_ORIGEM'     ,'MSEXECAUT'        , NIL},;

...


                       {'CT2_HP'          ,''                   , NIL},;

...


                       {'CT2_EMPORI'     ,'01'                 , NIL},;

...


                       {'CT2_FILORI'      ,'0101001'            , NIL},;                       

...


                       {'CT2_HIST'       ,'MSEXECCT2-1'    , NIL},;

...


                       {'LINPOS'            ,'CT2_LINHA'        ,nLinha}})  

...


                   

...



    MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 4)

...





    If lMsErroAuto

...


        lMsErroAuto := .F.

...


        MsgAlert("ERRO Lançamento" , "Teste Carga CT2")

...


  

...

        Exit

    Endif

Next nX

cFileLog := NomeAutoLog()

cPath := ""

If !Empty(cFileLog) .And. !lRet

    MostraErro(cPath,cFileLog)

Endif

      Exit
    Endif

RestArea(aArea)

...

Return

Informações
titleImportante

A Execução automática está disponível apenas para Inclusão e Alteração de lançamentos contábeis.

...

Idioma

...

Português(Brasil)

...

Versões

...

Todas

...

Sistemas Operacionais Suportados

...

Todos

...

Compatível com as Bases de Dados

...

Todas

...

Programa Fonte


RESET ENVIRONMENT
Return



05. TABELAS UTILIZADAS

  • CT2- Lançamentos Contábeis



HTML
<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

...