Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagegroovy
themeMidnight
titleTRANSFÊNCIA FISICA FÍSICA PARCIAL
linenumberstrue
collapsetrue
#Include 'Protheus.ch'
#Include 'Protheus.ch'
#Include 'tbiconn.ch'


User Function MyATFA060()
Local   aDadosAuto  := {}   // Array com os dados á 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

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ O exemplo abaixo foi considerado passando somente dados de conta contabil e centro de custo, caso ³
//³ necessário passar os campos referentes a itens contábeis e classes de valores.                    ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 

PREPARE ENVIRONMENT EMPRESA 'T1' FILIAL 'D MG 01 ' TABLES 'SN1','SN3','SN4','FNR' MODULO 'ATF'

dDatabase := cTod("02/10/2023")

aDadosAuto:= {{'N3_CBASE'        , "TRANSF6   "           , Nil},;    // Código base do ativo
               {'N3_ITEM'        , "001 "                 , Nil},;    // Item sequencial do código bas do ativo
               {'N3_TIPO'        , "10"                   , Nil},; // Tipo do Ativo  
               {'N1_FILIAL'      , "D MG 02 "             , Nil},;    // Filial de Destino do Ativo
               {'N1_QUANTD'      , 4                      , Nil},;    // Quantidade destino
               {'N4_DATA'        , dDatabase              , Nil},;    // Data de aquisição do ativo
               {'N3_CCUSTO'      , "         "            , Nil},;    // Centro de Custo de Despesa
               {'N3_CCONTAB'     , "101010100           " , Nil},;    // Conta Contabil
               {'N3_CCORREC'     , "                    " , Nil},;    // Conta de Correcao do Bem
               {'N3_CDEPREC'     , "201010100           " , Nil},;    // Conta Despesa Depreciação
               {'N3_CCDEPR'      , "                    " , Nil},;    // Conta Depreciação Acumulada
               {'N3_CDESP'       , "                    " , Nil},;    // Conta Correção Depreciação
               {'N3_CUSTBEM'     , "         "            , Nil},;    // Centro de Custo da Conta do Bem
               {'N3_CCCORR'      , "         "            , Nil},;    // Centro Custo Correção Monetária
               {'N3_CCDESP'      , "         "            , Nil},;    // Centro Custo Despesa Depreciação
               {'N3_CCCDEP'      , "         "            , Nil},;    // Centro Custo Despesa Acumulada
               {'N3_CCCDES'      , "         "            , Nil},;    // Centro Custo Correção Depreciacão
               {'N1_GRUPO'       , "    "                 , Nil},;    // Código do Grupo do Bem
               {'N1_LOCAL'       , "      "               , Nil},;    // Localizacao do Bem
               {'N1_NFISCAL'     , "         "            , Nil},;    // Numero da NF
               {'N1_NSERIE'      , "         "            , Nil},;    // Serie da NF
               {'N1_TAXAPAD'     , "      "               , Nil} }    // Codigo da Taxa Padrao
               
               
               
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Caso deseje passar valores para os campos, Grupo, Local, NF/Serie Taxa padrao, 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, aParamAuto , .F.)

If lMsErroAuto    
    lRetorno := .F.    
    MostraErro()
Else    
    lRetorno:=.T.
EndIf

Return