|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
MSEXECAUTO do SE1 e SE2 |
|
Versão: |
10 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
Oracle |
Complemento: |
|
|
|
|
|
Mensagem do
ELOILSON
em 19/03/2010, 14:28 h
Local: CE Registro: 24/12/2009 Postagens: 26 |
Boa tarde, prezados.
Acabei de receber a incumbência de fazer a importação do contas a receber e pagar (só em aberto) de um determinado sistema para o Protheus 10.
Vocês poderiam me enviar o MSEXECAUTO do SE1 e SE2 ?
Agradeço desde já a cooperação de vocês.
Abraços,
eloilsonfarias@hotmail.com
Programador
|
|
|
Mensagem do
SHAMA
em 19/03/2010, 15:06 h
Local: RJ Registro: 08/04/2008 Postagens: 171 |
//Fonte para SE1
aVetorSE1:={{"E1_PREFIXO" , SubStr(SZC->ZC_NUMTTLO,11,3), Nil},;
{"E1_NUM" , SubStr(SZC->ZC_NUMTTLO,14,9), Nil},;
{"E1_PARCELA" , SubStr(SZC->ZC_NUMTTLO,23,2), Nil},;
{"E1_TIPO" , SubStr(SZC->ZC_NUMTTLO,25,3), Nil},;
{"E1_CLIENTE" , SubStr(SZC->ZC_NUMTTLO,03,6), Nil},;
{"E1_LOJA" , SubStr(SZC->ZC_NUMTTLO,09,2), Nil}}
lMsErroAuto := .F.
MSExecAuto({|x,y| Fina040(x,y)}, aVetorSE1, 5)
//Fonte para SE2
aVetorSE2:={{"E2_PREFIXO" , Substr(SZC->ZC_NUMTTLO,03,3), Nil},;
{"E2_NUM" , Substr(SZC->ZC_NUMTTLO,06,9), Nil},;
{"E2_PARCELA" , Substr(SZC->ZC_NUMTTLO,15,1), Nil},;
{"E2_TIPO" , Substr(SZC->ZC_NUMTTLO,16,3), Nil},;
{"E2_FORNECE" , Substr(SZC->ZC_NUMTTLO,19,6), Nil},;
{"E2_LOJA" , Substr(SZC->ZC_NUMTTLO,25,2), Nil}}
lMsErroAuto := .F.
MSExecAuto({|x,y,z| Fina050(x,y,z)},aVetorSE2,,5)
|
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|