Histórico da Página

Composition Setup
import.css=/download/attachments/327912/newLayout.css

Portuguese

Pagetitle

	Rotina Rutina Automática ATFA010 - Atualização Actualización de Ativos Imobilizadosactivos inmovilizadosRotina
	Rutina Automática ATFA010 - Atualização Actualización de Ativos Imobilizadosactivos inmovilizados

FunçãoFunción: Rotina Automática Rutina automática ATFA010 - Atualização Actualización de Ativos Imobilizadosactivos inmovilizados

Abrangências Alcances:	Microsiga Protheus 11 , Protheus 10
Versões Versiones:	Protheus 10
Compatível Países Compatible países:	Todos
Sistemas Operacionais operativos:	Todos
Compatível às Bases de Dados Compatible con las bases de datos:	Todos
Nível Nivel de Acesso acceso:	Nível Nivel 1 ( Acesso Clientes Acceso clientes)
Idiomas:	Português Portugués (Brasil) , Português Portugués (Portugal) , Espanhol Español , Inglês Inglés

DescripciónDescrição:

Esta rotinarutina permite aincluir inclusãobienes de bensmanera de forma automática.

Programa Fontefuente:

atfa010.prw

SintaxeSintaxis:

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

ParâmetrosParámetros:

Nome Nombre	Tipo	Descrição Descripción
aCabec	Array	Array contendo os campos do cabeçalho con los campos del encabezado (SN1).
aItens	Array	Array contendo os campos dos itens que contiene los campos de los ítems (SN3).
nOpc	Array	3- InclusãoInclusión 4- Alteração é necessário o uso do Es necesario modificar el uso del campo LINPOS para localizar o bem ubicar el bien 5- Exclusão é necessário o uso do Es necesario eliminar el uso del campo LINPOS para localizar o bem e o ubicar el bien y el AUTDELETA para que seja deletadosea eliminado
aParamAuto	Array	Array contendo as respostas para a Pergunta con las respuestas para la Pregunta(SX1) da rotina

Exemplos

de la rutina

Ejemplos

Ejemplo de inclusiónExemplo de Inclusão

User Function Myatfa010Inc()
Local aItens := {}
Local aDadosAuto := {} // Array com os dados a serem enviados pela con los datos que serán enviados por la MsExecAuto() para gravacao automatica dos itens do ativo grabación automática de los ítems del activo
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' ,'987' ,NIL} }
// Array com os dados a serem enviados pela con los datos que serán enviados por la MsExecAuto() para gravacao automatica da capa do bem grabación automática de la envoltura del bien
Private lMsHelpAuto := .f. // Determina se as mensagens de help devem ser direcionadas para o arqsi los mensajes de help se deben orientar al arch. de log
Private lMsErroAuto := .f. // Determina se houve alguma inconsistencia na execucao da rotina si hubo alguna inconsistencia al ejecutar la rutina
aAdd(aItens,{ {'N3_TIPO' ,'01' , NIL},;
{'N3_HISTOR' ,"INCLUSAOTIPO 01 " , NIL},;
{'N3_TPSALDO' ,'1' , NIL},;
{'N3_TPDEPR' ,'1' , NIL},;
{'N3_CCONTAB' ,'11101001 ' , NIL},;
{'N3_VORIG1' , 10000 , NIL},;
{'N3_VORIG2' , 20000 , NIL},;
{'N3_VORIG3' , 30000 , NIL},;
{'N3_VMXDEPR' , 0 , NIL},;
{'N3_VLSALV1' , 0 , NIL},;
{'N3_PERDEPR' , 0 , NIL},;
{'N3_PRODMES' , 0 , NIL},;
{'N3_PRODANO' , 0 , NIL},;
{'N3_DINDEPR' ,dDataBase ,NIL} } )
//array com os dados a serem enviados pela con los datos que serán enviados por la MsExecAuto() para gravacao automatica do item grabación automática del ítem tipo 01
aAdd(aItens,{ {'N3_TIPO' ,'10' , NIL},;
{'N3_HISTOR' ,"INCLUSÃO TIPO 10 " , NIL},;
{'N3_TPSALDO' ,'1' , NIL},;
{'N3_TPDEPR' ,'1' , NIL},;
{'N3_CCONTAB' ,'11101001 ' , NIL},;
{'N3_VORIG1' , 10000 , NIL},;
{'N3_VORIG2' , 20000 , NIL},;
{'N3_VORIG3' , 30000 , NIL},;
{'N3_VMXDEPR' , 0 , NIL},;
{'N3_VLSALV1' , 0 , NIL},;
{'N3_PERDEPR' , 0 , NIL},;
{'N3_PRODMES' , 0 , NIL},;
{'N3_PRODANO' , 0 , NIL},;
{'N3_DINDEPR' ,dDataBase ,NIL} } ) //array com os dados a serem enviados pela con los datos que serán enviados por la MsExecAuto() para gravacao automatica do item grabación automática del ítem tipo 10
MSExecAuto( {|X,Y,Z| ATFA010(X,Y,Z)} ,aCab ,aItens, 3)
If lMsErroAuto
lRetorno := .F.
MostraErro()
Else
lRetorno:=.T.
EndIf
Return

____________________________________________________________________________________________________________________________________________________________________________________

Exemplo Ejemplo de Alteraçãomodificación

User Function AltMyatfa010()
Local aItens := {}
Local aDadosAuto := {} // Array com os dados a serem enviados pela con los datos que serán enviados por la MsExecAuto() para gravacao automatica dos itens do ativo grabación automática de los ítems del activo
Local cHistorico := "Histórico Historial "+ time()
Local aCab := { {'N1_FILIAL' ,(PADR('01',Len(SN1->N1_FILIAL)," ")) ,NIL},;
{'N1_CBASE' ,(PADR('13',Len(SN1->N1_CBASE)," ")) ,NIL},;
{'N1_ITEM' ,(PADR('01',Len(SN1->N1_ITEM)," ")) ,NIL},;
{'N1_DESCRIC' ,cHistorico ,NIL},;
{'N1_CHAPA' ,'987' ,NIL} }
// Array com os dados a serem enviados pela con los datos que serán enviados por la MsExecAuto() para gravacao automatica da capa do bem grabación automática de la envoltura del bien
Private lMsHelpAuto := .f. // Determina se as mensagens de help devem ser direcionadas para o arqsi los mensajes de help se deben orientar al arch. de logPrivate
lMsErroAuto := .f. // Determina se houve alguma inconsistencia na execucao da rotina si hubo alguna inconsistencia al ejecutar la rutina
aAdd(aItens,{ {'N3_TIPO' ,'01' , NIL},;
{'N3_HISTOR' ,"TIPO 01 "+cHistorico , NIL},;
{'N3_TPSALDO' ,'1' , NIL},;
{'N3_TPDEPR' ,'1' , NIL},;
{'N3_CCONTAB' ,'11101001 ' , NIL},;
{'N3_VORIG1' , 10000 , NIL},;
{'N3_VORIG2' , 20000 , NIL},;
{'N3_VORIG3' , 30000 , NIL},;
{'N3_VMXDEPR' , 0 , NIL},;
{'N3_VLSALV1' , 0 , NIL},;
{'N3_PERDEPR' , 0 , NIL},;
{'N3_PRODMES' , 0 , NIL},;
{'N3_PRODANO' , 0 , NIL},;
{'N3_DINDEPR' ,dDataBase ,NIL} ,;
{"LINPOS","N3_TIPO","01"} })

//array com os dados a serem enviados pela con los datos que serán enviados por la MsExecAuto() para gravacao automatica do item grabación automática del ítem tipo 01
aAdd(aItens,{ {'N3_TIPO' ,'10' , NIL},;
{'N3_HISTOR' ,"TIPO 10 "+cHistorico , NIL},;
{'N3_TPSALDO' ,'1' , NIL},;
{'N3_TPDEPR' ,'1' , NIL},;
{'N3_CCONTAB' ,'11101001 ' , NIL},;
{'N3_VORIG1' , 10000 , NIL},;
{'N3_VORIG2' , 20000 , NIL},;
{'N3_VORIG3' , 30000 , NIL},;
{'N3_VMXDEPR' , 0 , NIL},;
{'N3_VLSALV1' , 0 , NIL},;
{'N3_PERDEPR' , 0 , NIL},;
{'N3_PRODMES' , 0 , NIL},;
{'N3_PRODANO' , 0 , NIL},;
{'N3_DINDEPR' ,dDataBase ,NIL} ,;
{"LINPOS","N3_TIPO","10"} })

MSExecAuto( {|X,Y,Z| ATFA010(X,Y,Z)} ,aCab ,aItens, 4)
If lMsErroAuto
lRetorno := .F.
MostraErro()
Else
lRetorno:=.T.
EndIf
Return

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave