Função: Rotina Automática ATFA030 - Baixa do Ativos
Abrangências: | Microsiga Protheus 11 , Protheus 10 |
Versões: | Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Nível de Acesso: | Nível 1 (Acesso Clientes) |
Idiomas: | Português (Brasil) , Português (Portugal) , Espanhol , Inglês |
Descrição:
Esta rotina permite a baixa de Ativos de forma automática.
Programa Fonte:
ATFA030.PRX
Sintaxe:
Rotina Automática ATFA030 - Baixa do Ativos ( )
Retorno:
-
()
Observações
MSExecAuto({|x, y, z| AtfA030(x, y, z)},aDadosAuto, 4) //aDadosAuto - dados do bem a ser baixado.
Exemplos
/*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Programa ³MyATFA030 ³ Autor ³ Eduardo F. Lima ³ Data ³ 01/12/11 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Exemplo de chamada do ATFA030 pela MSExecAuto() para ³±±±±³ ³Baixa de ativos ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso ³SIGAATF ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function MyATFA030()Local aDadosAuto := {} // Array com os dados a serem enviados pela MsExecAuto() para gravacao automaticaPrivate lMsHelpAuto := .f. // Determina se as mensagens de help devem ser direcionadas para o arq. de logPrivate lMsErroAuto := .f. // Determina se houve alguma inconsistencia na execucao da rotina em relacao aosaDadosAuto:= { {'N3_CBASE' , "0000000070" , Nil},; // Codigo base do ativo{'N3_ITEM' , "0001" , Nil},; // Item sequencial do codigo base do ativo {'AUTDTBX' , CTOD("30/11/11"), Nil},; // Deverá ser informada a data efetiva da baixa do Bem. {'AUTMOTBX' , "01", Nil},; // Deverá ser informado o motivo da baixa. A tabela de motivos poderá ser alterado na rotina Tabela no módulo Configurador (tabela 16).{'AUTNOTA' , "Nota 10", Nil},; // Número da Nota Fiscal. Deverá ser infor-mada, caso seja uma venda de Ativo.{'AUTSERIE' , "3 Serie C", Nil},; // Serie da Nota Fiscal.{'AUTQUANT' , 1, Nil},; // Quantidade da baixa. Caso a baixa seja por valor, deverá ser informado 0(zero).Se for pela quantidade, o valor será proporcionalizado pela quantidade baixa-da.{'AUTPERCBX' , 100, Nil},; // Percentual do bem a ser baixado.{'AUTBXFILHOS' , .F., Nil},; // Indica se deve ser efetuada a baixa dos filhos {'AUTVLRVENDA' , 1, Nil}} // Caso se trate de uma venda de ativo, de-verá ser informado o valor da venda do mesmo.MSExecAuto({|x, y, z| AtfA030(x, y, z)},aDadosAuto, 4)If lMsErroAuto lRetorno := .F. MostraErro()Else lRetorno:=.T.EndIfReturn
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas