Histórico da Página
...
Portuguese | |||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: Rotina Automática ATFA010 - Atualização de Ativos Imobilizados
Descrição: Esta rotina permite a inclusão de bens de forma automática. Programa Fonte: atfa010.prw Sintaxe: Parâmetros:MSExecAuto( {|X,Y,Z,W| ATFA010(X,Y,Z,W)} ,aCab ,aItens, nOpc,aParamAuto)
Exemplos #Include 'Protheus.ch'
User Function Myatfa010()
Local aItens := {} Local aDadosAuto := {} // Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica 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 gravacao automatica 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 inconsistencia inconsistência na execucao execução da rotina
//array com os dados a serem enviados pela MsExecAuto() para gravacao automatica 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 gravacao automatica 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 - Descricao 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
|