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 gravação automática 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 gravação automática 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 inconsistência na execução da rotina em relação aos parâmetros informados

//array com os dados a serem enviados pela MsExecAuto() para gravação automática 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 gravação automática 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 - Descrição 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