Histórico da Página

#Include 'Protheus.ch'

User Function  Myatfa010()

Local aItens     := {}

Local aDadosAuto := {}        // Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica dos itens do ativo

Local aParamAuto := {}

Local aCab := {

{'N1_FILIAL'

,'01'

,NIL},;

    {'N1_CBASE'

,'13'

,NIL},;

    {'N1_ITEM'

,'01'

,NIL},;

    {'N1_AQUISIC'

,dDataBase

,NIL},;

    {'N1_DESCRIC'

,'MS

EXEC

AUTO'

,NIL},;

    {'N1_QUANTD'

,

1

,NIL},;

    {'N1_CHAPA'

,'1'

,NIL}

}                                                                                                        // Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica da capa do bem

Private lMsHelpAuto := .f.    // Determina se as mensagens de help devem ser direcionadas para o arq. de log

Private lMsErroAuto := .f.    // Determina se houve alguma inconsistencia na execucao da rotina

//array com os dados a serem enviados pela MsExecAuto() para gravacao automatica do item tipo 01

aAdd(aItens,{  {'N3_TIPO'  ,'01'   , NIL},;

    {'N3_HISTOR'  ,'MS EXEC AUTO TIPO 01'   , NIL},;

    {'N3_TPSALDO'  ,'1'   , NIL},;

    {'N3_TPDEPR'   ,'1'   , NIL},;

    {'N3_CCONTAB'  ,'41101' , NIL},;

    {'N3_VORIG1'  , 10000 , NIL},;

    {'N3_VORIG2'  , 20000 , NIL},;

    {'N3_VORIG3'  , 30000 , NIL},;

    {'N3_DINDEPR'  ,dDataBase ,NIL} } )

//array com os dados a serem enviados pela MsExecAuto() para gravacao automatica do item tipo 10

aAdd(aItens,{  {'N3_TIPO'  ,'10'   , NIL},;

    {'N3_HISTOR'  ,'MS EXEC AUTO TIPO 10'   , NIL},;

    {'N3_TPSALDO'  ,'1'   , NIL},;

    {'N3_TPDEPR'   ,'1'   , NIL},;

    {'N3_CCONTAB'  ,'41101' , NIL},;

    {'N3_VORIG1'  , 10000 , NIL},;

    {'N3_VORIG2'  , 20000 , NIL},;

    {'N3_VORIG3'  , 30000 , NIL},;

    {'N3_DINDEPR'  ,dDataBase ,NIL} } )

// Parametros das perguntas da rotina atfa010

aAdd( aParamAuto, {"MV_PAR01", 2} ) //Pergunta 01 - Mostra Lanc.Contab ? 1 = Sim   ; 2 = Não

aAdd( aParamAuto, {"MV_PAR02", 1} ) //Pergunta 02 - Repete Chapa ?       1 = Sim   ; 2 = Não

aAdd( aParamAuto, {"MV_PAR03", 2} ) //Pergunta 03 - Descricao estendida? 1 = Sim   ; 2 = Não

aAdd( aParamAuto, {"MV_PAR04", 1} ) //Pergunta 04 - Copiar Valores ?     1 = Todos ; 2 = Sem Acumulados

MSExecAuto( {|X,Y,Z,W| ATFA010(X,Y,Z,W)} ,aCab ,aItens, 3,aParamAuto)

If lMsErroAuto

    lRetorno := .F.

    MostraErro()

Else

    lRetorno:=.T.

EndIf

Return