|
Bem Vindo, Visitante
|
Todos os Fórums
Financeiro
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
FINA050 MSEXECAUTO PARA PA |
|
Versão: |
|
|
Plataforma: |
|
Complemento: |
|
|
DB: |
|
Complemento: |
|
|
|
|
|
Mensagem do
MRDC
em 19/06/2007, 19:29 h
Local: SP Registro: 07/08/2006 Postagens: 11 |
Alguem tem algum exemplo de msexecauto para o fina050 gravando PA.?
Quando eu executo o campo agencia/conta e banco no SE5 fica em branco.
Grato |
|
|
Mensagem do
CF_MARTINS
em 19/02/2008, 11:34 h
Local: MG Registro: 12/04/2007 Postagens: 176 |
Bindo!
Não encontrei nenhum arquivo com execauto, nem msexecauto, nem exec auto, na seção de downloads.
Carlos Fernando |
|
|
Mensagem do
ADRIANNA
em 19/02/2008, 17:46 h
Local: CE Registro: 09/02/2008 Postagens: 4 |
PA nao tenho mas é a mesma funcao abaixo:
aVetor := {}
AaDd(aVetor,{"E2_FILIAL" ,xFilial("SE2"),Nil})
AaDd(aVetor,{"E2_PREFIXO",xFilial("SE2") ,Nil})
AaDd(aVetor,{"E2_NUM" ,cNumNF ,Nil})
AaDd(aVetor,{"E2_PARCELA"," " ,Nil})
AaDd(aVetor,{"E2_TIPO" ,"NDF" ,Nil})
AaDd(aVetor,{"E2_FORNECE",cCliente ,Nil})
AaDd(aVetor,{"E2_LOJA ",cLoja ,Nil})
AaDd(aVetor,{"E2_EMISSAO",ddatabase ,Nil})
AaDd(aVetor,{"E2_VENCTO" ,ddatabase ,Nil})
AaDd(aVetor,{"E2_VALOR" ,(NTOTFAT-NTOTFAB)-((MV_PAR04/100) * (NTOTFAT-NTOTFAB)) ,Nil})
AaDd(aVetor,{"E2_HIST" ,"inclusao automatica" ,Nil})
AaDd(aVetor,{"E2_NATUREZ","2502001" ,Nil})
lMsErroAuto := .F.
MSExecAuto({|x,y| Fina050(x,y)},aVetor,3) //3-Inclusao //5-Exclusao
If lMsErroAuto
MostraErro()
EndIf
|
|
|
Mensagem do
LOBITSKY
em 19/02/2008, 22:05 h
Local: SP Registro: 14/08/2005 Postagens: 3212 |
Outro exemplo
// Gera um título a pagar no valor do SEST/SENAT para NF´S que possuem esse cálculo.
aVet := {}
AADD(aVet,{"E2_FILIAL " ,xfilial("SE2"), Nil} )
AADD(aVet,{"E2_FILTUSA" ,space(2) , Nil} )
AADD(aVet,{"E2_NUM " ,SF1->F1_DOC , Nil} )
AADD(aVet,{"E2_PREFIXO" ,SF1->F1_SERIE, Nil} )
AADD(aVet,{"E2_PARCELA" ,"" , Nil} )
AADD(aVet,{"E2_TIPO" ,"TX " , Nil} )
AADD(aVet,{"E2_NATUREZ" ,"71602" , Nil} )
AADD(aVet,{"E2_FORNECE" ,"SENAT" , Nil} )
AADD(aVet,{"E2_LOJA " ,"00" , Nil} )
AADD(aVet,{"E2_NOMFOR " ,"SENAT" , Nil} )
AADD(aVet,{"E2_EMISSAO" ,ddatabase , Nil} )
AADD(aVet,{"E2_VENCTO" ,ddatabase , Nil} )
AADD(aVet,{"E2_VENCORI" ,ddatabase , Nil} )
AADD(aVet,{"E2_VENCREA" ,ddatabase , Nil} )
AADD(aVet,{"E2_VALOR" ,(SF1->F1_VALMERC*nPerc)/100, Nil} )
AADD(aVet,{"E2_EMIS1 " ,ddatabase , Nil} )
AADD(aVet,{"E2_LA " ,"S" , Nil} )
AADD(aVet,{"E2_OK " ,"3q" , Nil} )
AADD(aVet,{"E2_SALDO" ,(SF1->F1_VALMERC*nPerc)/100, Nil} )
AADD(aVet,{"E2_MOEDA " ,1 , Nil} )
AADD(aVet,{"E2_VLCRUZ " ,(SF1->F1_VALMERC*nPerc)/100, Nil} )
AADD(aVet,{"E2_ORIGEM " ,"MATA100" , Nil} )
AADD(aVet,{"E2_USUALIB" ,substr(cUsuario,7,15), Nil} )
FINA050(aVet,3)
// Se a fç automática FINA050 é usada aqui p/ gerar o título TX do SEST/SENAT,
// o campo E2_ORIGEM sempre será gravado com "FINA050". Se faz necessário regravar
// esse campo c/"MATA100" para que, ao excluir a NF Entrada, esse título tbém seja
// excluído automaticamente.
dbselectarea("SE2")
reclock("SE2",.f.)
SE2->E2_ORIGEM := "MATA100"
msUnlock()
flw....
Rafael R.Lobitsky
Coordenador de projetos
www.hfbr.com.br
www.helpfacil.com.br - Portal do conhecimento |
|
|
Mensagem do
WIRIRIBEIR
em 09/04/2010, 11:01 h
Local: PR Registro: 22/01/2008 Postagens: 39 |
Alguém sabe onde eu passo os parâmetros de banco para um execauto de PA?
Obrigado
WR |
|
|
Mensagem do
ELEANDRO
em 29/11/2011, 15:45 h
Local: SC Registro: 09/01/2008 Postagens: 6 |
Boa tarde,
Cria um CPERG antes de chamar a rotina automatica e grava essas informacoes no SE5.
Eleandro |
|
|
Mensagem do
MHDUQUE
em 06/04/2020, 17:26 h
Local: SP Registro: 30/01/2014 Postagens: 4 |
Mhduque
Ola Boa Tarde, Estou usando o execauto do fina050 no protheus lobo guara, ele entra com os registros vai atéo final, mas depois deleta a Se2, alguém ja viu isso?
Obrigado |
|
|
Mensagem do
MHDUQUE
em 06/04/2020, 17:26 h
Local: SP Registro: 30/01/2014 Postagens: 4 |
Mhduque
Detalhe na versão anterior funcionou. |
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|