mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
Merge pull request #2537 from imsys/xbase-extra
#2504 - xBase aliases and extension .prw
This commit is contained in:
Arfon Smith
@@ -3822,8 +3822,13 @@ wisp:
|
|||||||
xBase:
|
xBase:
|
||||||
type: programming
|
type: programming
|
||||||
color: "#403a40"
|
color: "#403a40"
|
||||||
|
aliases:
|
||||||
|
- advpl
|
||||||
|
- clipper
|
||||||
|
- foxpro
|
||||||
extensions:
|
extensions:
|
||||||
- .prg
|
- .prg
|
||||||
- .ch
|
- .ch
|
||||||
|
- .prw
|
||||||
tm_scope: source.harbour
|
tm_scope: source.harbour
|
||||||
ace_mode: text
|
ace_mode: text
|
||||||
|
|||||||
512
samples/xBase/sample.prw
Executable file
512
samples/xBase/sample.prw
Executable file
@@ -0,0 +1,512 @@
|
|||||||
|
|
||||||
|
/**
|
||||||
|
* This is a sample file for Linguist.
|
||||||
|
* It's written in AdvPL, a xBase Language.
|
||||||
|
*
|
||||||
|
* Author: Arthur Helfstein Fragoso
|
||||||
|
*
|
||||||
|
* This script has the specific use of integrating between a financial institution
|
||||||
|
* and other two companies in the process of creating Installment Bills for
|
||||||
|
* customers.
|
||||||
|
*
|
||||||
|
* The functions are called from the ERP Protheus TOTVS.
|
||||||
|
*
|
||||||
|
**/
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#Include "TOPCONN.ch"
|
||||||
|
#include "tbiconn.ch"
|
||||||
|
#Include "Protheus.ch"
|
||||||
|
#Include "rwmake.ch"
|
||||||
|
#Include "FileIO.ch"
|
||||||
|
#Include "json.ch"
|
||||||
|
#Include "utils.ch"
|
||||||
|
|
||||||
|
|
||||||
|
////////////////////////
|
||||||
|
// Faturando (Reparcelando)
|
||||||
|
// FA280
|
||||||
|
// FA280_01
|
||||||
|
//
|
||||||
|
|
||||||
|
User Function FA280()
|
||||||
|
|
||||||
|
//Executado uma vez para cada parcela
|
||||||
|
|
||||||
|
If cEmpAnt == '06'
|
||||||
|
|
||||||
|
SE5->(dbSelectArea("SE5"))
|
||||||
|
|
||||||
|
cSet3Filter := "SE5->E5_FATURA == SE1->E1_NUM"
|
||||||
|
|
||||||
|
SE5->(dbSetFilter( {|| &cSet3Filter }, cSet3Filter ))
|
||||||
|
SE5->(dbGoTOP())
|
||||||
|
|
||||||
|
aOrig06Tit := {} // = Todos os Titulos que ser<65>o reparcelados
|
||||||
|
nTotal := 0
|
||||||
|
|
||||||
|
While SE5->(!EOF())
|
||||||
|
AADD(aOrig06Tit, {SE5->E5_PREFIXO, SE5->E5_NUMERO, SE5->E5_VALOR})
|
||||||
|
nTotal += SE5->E5_VALOR
|
||||||
|
SE5->(dbSkip())
|
||||||
|
End
|
||||||
|
|
||||||
|
aNovoTitulo:= {;//{"E1_FILIAL" ,SE1ORIG->E1_FILIAL ,Nil},;
|
||||||
|
;//{"E1_PREFIXO" ,SE1->E1_PREFIXO ,Nil},;
|
||||||
|
{"E1_NUM" ,SE1->E1_NUM ,Nil},;
|
||||||
|
{"E1_TIPO" ,SE1->E1_TIPO ,Nil},;
|
||||||
|
{"E1_PARCELA" ,SE1->E1_PARCELA ,Nil},;
|
||||||
|
{"E1_NATUREZ" ,SE1->E1_NATUREZ ,Nil},;
|
||||||
|
{"E1_CLIENTE" ,SE1->E1_CLIENTE ,Nil},;
|
||||||
|
{"E1_LOJA" ,SE1->E1_LOJA ,Nil},;
|
||||||
|
{"E1_NRDOC" ,SE1->E1_NRDOC ,Nil},;
|
||||||
|
;//{"E1_X_COD" ,SE1->E1_NATUREZ ,Nil},;
|
||||||
|
{"E1_EMISSAO" ,SE1->E1_EMISSAO ,Nil},;
|
||||||
|
{"E1_VENCTO" ,SE1->E1_VENCTO ,Nil},;
|
||||||
|
{"E1_VENCREA" ,SE1->E1_VENCREA ,Nil},;
|
||||||
|
;//{"E1_VALOR" ,SE1->E1_VALOR ,Nil},;
|
||||||
|
;//{"E1_SALDO" ,SE1->E1_SALDO ,Nil},;
|
||||||
|
;//{"E1_VLCRUZ" ,SE1->E1_VLCRUZ ,Nil},;
|
||||||
|
{"E1_PORTADO" ,SE1->E1_PORTADO ,Nil},;
|
||||||
|
{"E1_FATURA" ,SE1->E1_FATURA ,Nil},;
|
||||||
|
{"E1_X_DTPAV" ,SE1->E1_X_DTPAV ,Nil},;
|
||||||
|
{"E1_X_DTSAV" ,SE1->E1_X_DTSAV ,Nil},;
|
||||||
|
{"E1_X_DTTAV" ,SE1->E1_X_DTTAV ,Nil},;
|
||||||
|
{"E1_X_DTSPC" ,SE1->E1_X_DTSPC ,Nil},;
|
||||||
|
{"E1_X_DTPRO" ,SE1->E1_X_DTPRO ,Nil},;
|
||||||
|
{"E1_NUMBCO" ,SE1->E1_NUMBCO ,Nil},;
|
||||||
|
{"E1_X_DUDME" ,SE1->E1_X_DUDME ,Nil},;
|
||||||
|
{"E1_X_TIPOP" ,SE1->E1_X_TIPOP ,Nil},;
|
||||||
|
{"E1_X_DTCAN" ,SE1->E1_X_DTCAN ,Nil},;
|
||||||
|
{"E1_X_MOTIV" ,SE1->E1_X_MOTIV ,Nil},;
|
||||||
|
{"E1_X_DESPC" ,SE1->E1_X_DESPC ,Nil},;
|
||||||
|
{"E1_NUMNOTA" ,SE1->E1_NUMNOTA ,Nil},;
|
||||||
|
{"E1_SERIE" ,SE1->E1_SERIE ,Nil},;
|
||||||
|
{"E1_X_DEPRO" ,SE1->E1_X_DEPRO ,Nil},;
|
||||||
|
{"E1_X_TPPAI" ,SE1->E1_X_TPPAI ,Nil},;
|
||||||
|
{"E1_X_CGC" ,SE1->E1_X_CGC ,Nil},;
|
||||||
|
{"E1_XTPEMP" ,SE1->E1_XTPEMP ,Nil},;
|
||||||
|
{"E1_X_CTRIM" ,SE1->E1_X_CTRIM ,Nil}}
|
||||||
|
|
||||||
|
StartJob("U_FA280_01",getenvserver(),.T., SE1->E1_PREFIXO ,SE1->E1_NUM, SE1->E1_TIPO, SE1->E1_VALOR, aOrig06Tit, nTotal, SE1->E1_PARCELA, aNovoTitulo)
|
||||||
|
|
||||||
|
SE5->(dbClearFilter())
|
||||||
|
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
Return nil
|
||||||
|
|
||||||
|
|
||||||
|
User Function FA280_01(cE1PREFIXO, cE1NUM, cE1TIPO, nE1Valor, aOrig06Tit, nTotal, cE1PARCELA, aNovoTitulo)
|
||||||
|
Local nValPar := nil
|
||||||
|
Local aTit05 := {}
|
||||||
|
|
||||||
|
RpcSetType(3) // Nao consome licensa
|
||||||
|
|
||||||
|
//Prepare Environment Empresa "01" Filial '0102'
|
||||||
|
// Muda de empresa
|
||||||
|
While !RpcSetEnv('01', '0102',,,,GetEnvServer(),{})
|
||||||
|
Sleep(400)
|
||||||
|
End
|
||||||
|
|
||||||
|
nFileLog := u_OpenLog("\Logs\FA280_"+dToS(dDataBase)+".log")
|
||||||
|
|
||||||
|
fWrite(nFileLog,"----- FA280 -----"+CRLF)
|
||||||
|
|
||||||
|
fWrite(nFileLog,cE1NUM+CRLF)
|
||||||
|
|
||||||
|
nParcelas := round(nTotal/nE1Valor, 0)
|
||||||
|
|
||||||
|
cUltima := '0'+ chr(64+nParcelas)
|
||||||
|
|
||||||
|
fWrite(nFileLog,"valor das parcelas: "+ cvaltochar(nE1Valor) +CRLF)
|
||||||
|
fWrite(nFileLog,"parcelas: "+ cvaltochar(nParcelas) +CRLF)
|
||||||
|
fWrite(nFileLog,"parcela atual: "+ cE1PARCELA +CRLF)
|
||||||
|
fWrite(nFileLog,"ultima parcela: "+ cUltima +CRLF)
|
||||||
|
|
||||||
|
n0102total := 0
|
||||||
|
n0105total := 0
|
||||||
|
|
||||||
|
//Loop entre todos os Titulos que serão Reparcelados
|
||||||
|
|
||||||
|
For nI := 1 To len(aOrig06Tit)
|
||||||
|
|
||||||
|
fWrite(nFileLog,"E5_NUMERO: "+aOrig06Tit[nI][2] +CRLF)
|
||||||
|
|
||||||
|
cQuery := "select * from SE1010 where E1_PREFIXO = '"+ aOrig06Tit[nI][1] +"' and E1_NUM = '"+ aOrig06Tit[nI][2] +"' and E1_TIPO = 'FAT' and D_E_L_E_T_ <> '*'"
|
||||||
|
|
||||||
|
fWrite(nFileLog,cQuery +CRLF)
|
||||||
|
|
||||||
|
If select("SE1ORIG") > 0
|
||||||
|
SE1ORIG->(DbCloseArea())
|
||||||
|
endif
|
||||||
|
TcQuery cQuery New Alias 'SE1ORIG'
|
||||||
|
dbSelectArea("SE1ORIG")
|
||||||
|
SE1ORIG->(DBGOTOP())
|
||||||
|
|
||||||
|
While SE1ORIG->(!EOF()) //Loop entre as duas filiais: 0102, 0105
|
||||||
|
fWrite(nFileLog,"SE1ORIG loop: "+SE1ORIG->E1_FILIAL +CRLF)
|
||||||
|
cFilAnt := SE1ORIG->E1_FILIAL
|
||||||
|
|
||||||
|
//Faz a baixa
|
||||||
|
if alltrim(SE1ORIG->E1_STATUS) == 'A'
|
||||||
|
fWrite(nFileLog, SE1ORIG->E1_FILIAL+" : Fazendo baixa" +CRLF)
|
||||||
|
|
||||||
|
aBaixa := {{"E1_FILIAL" ,SE1ORIG->E1_FILIAL ,Nil},;
|
||||||
|
{"E1_PREFIXO" ,SE1ORIG->E1_PREFIXO ,Nil},;
|
||||||
|
{"E1_NUM" ,SE1ORIG->E1_NUM ,Nil},;
|
||||||
|
{"E1_TIPO" ,SE1ORIG->E1_TIPO ,Nil},;
|
||||||
|
{"E1_PARCELA" ,SE1ORIG->E1_PARCELA ,Nil},;
|
||||||
|
{"E1_DESCONT" ,SE1ORIG->E1_DESCONT ,Nil},;
|
||||||
|
{"E1_JUROS" ,SE1ORIG->E1_JUROS ,Nil},;
|
||||||
|
{"E1_MULTA" ,SE1ORIG->E1_MULTA ,Nil},;
|
||||||
|
{"E1_VLRREAL" ,SE1ORIG->E1_VLRREAL ,Nil},;
|
||||||
|
{"AUTMOTBX" ,"FAT" ,Nil},;
|
||||||
|
{"AUTDTBAIXA" ,date() ,Nil},;
|
||||||
|
{"AUTDTCREDITO",date() ,Nil},;
|
||||||
|
{"AUTHIST" ,"Bx.Emis.Fat."+cE1NUM,Nil},;
|
||||||
|
{"AUTVALREC" ,SE1ORIG->E1_VALOR ,Nil}}
|
||||||
|
|
||||||
|
|
||||||
|
lMsErroAuto:=.F. //reseta lMsErroAuto
|
||||||
|
MSExecAuto ({|x,y| FINA070(x,y)},aBaixa, 3)
|
||||||
|
|
||||||
|
If lMsErroAuto
|
||||||
|
|
||||||
|
fWrite(nFileLog,SE1ORIG->E1_FILIAL+" : Não foi efetuada a baixa do titulo : "+CRLF+ MSErroString()+ CRLF + tojson(aBaixa) + CRLF)
|
||||||
|
return
|
||||||
|
else
|
||||||
|
|
||||||
|
RECLOCK('SE5',.F.)
|
||||||
|
E5_FATURA := cE1NUM
|
||||||
|
E5_FATPREF:= cE1PREFIXO
|
||||||
|
//E5_LA = S
|
||||||
|
//E5_MOEDA = ''
|
||||||
|
//E5_TXMOEDA = 1
|
||||||
|
MSUNLOCK()
|
||||||
|
RECLOCK('SE1',.F.)
|
||||||
|
E1_FATURA := cE1NUM
|
||||||
|
E1_FATPREF:= cE1PREFIXO
|
||||||
|
E1_TIPOFAT:= cE1TIPO
|
||||||
|
E1_FLAGFAT:= 'S'
|
||||||
|
E1_DTFATUR:= dDataBase
|
||||||
|
MSUNLOCK()
|
||||||
|
|
||||||
|
fWrite(nFileLog,SE1ORIG->E1_FILIAL+" : baixa feita" +CRLF)
|
||||||
|
endif
|
||||||
|
|
||||||
|
endif
|
||||||
|
|
||||||
|
//calcula valor total de cada filial para poder calcular a Fatura
|
||||||
|
|
||||||
|
if SE1ORIG->E1_FILIAL == '0102'
|
||||||
|
n0102total += SE1ORIG->E1_VALOR
|
||||||
|
elseif SE1ORIG->E1_FILIAL == '0105'
|
||||||
|
n0105total += SE1ORIG->E1_VALOR
|
||||||
|
else
|
||||||
|
fWrite(nFileLog,"Programa nao preparado para a filial "+SE1ORIG->E1_FILIAL +CRLF)
|
||||||
|
endif
|
||||||
|
|
||||||
|
SE1ORIG->(dbskip())
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
Next nI
|
||||||
|
|
||||||
|
cFilAnt := '0102'
|
||||||
|
|
||||||
|
fWrite(nFileLog,"Total 0102: "+cvaltochar(n0102total) +CRLF)
|
||||||
|
fWrite(nFileLog,"Total 0105: "+cvaltochar(n0105total) +CRLF)
|
||||||
|
|
||||||
|
n0102val := round(nE1Valor * n0102total/nTotal, 2)
|
||||||
|
n0105val := nE1Valor - n0102val
|
||||||
|
|
||||||
|
aFili := {}
|
||||||
|
|
||||||
|
if n0102total > 0
|
||||||
|
AADD(aFili,'0102')
|
||||||
|
endif
|
||||||
|
|
||||||
|
if n0105total > 0
|
||||||
|
AADD(aFili,'0105')
|
||||||
|
endif
|
||||||
|
|
||||||
|
For nI := 1 To len(aFili)
|
||||||
|
|
||||||
|
cQuery := "select COUNT(*) as QUANT, SUM(E1_VALOR) as TOTALINC from SE1010 where E1_NUM = '"+ cE1NUM +"' and E1_FILIAL='"+ aFili[nI] +"' and E1_PREFIXO = '"+ cE1PREFIXO +"' and D_E_L_E_T_ <> '*'"
|
||||||
|
|
||||||
|
If select("PARC") > 0
|
||||||
|
PARC->(DbCloseArea())
|
||||||
|
endif
|
||||||
|
TcQuery cQuery New Alias 'PARC'
|
||||||
|
dbSelectArea("PARC")
|
||||||
|
|
||||||
|
//verificamos se estamos na ultima parcela
|
||||||
|
if PARC->QUANT == nParcelas -1 //QUANT = quantidade de parcelas incluida
|
||||||
|
fWrite(nFileLog,"Ultima Parcela"+CRLF)
|
||||||
|
//o valor desta será o valor que resta
|
||||||
|
nValPar := SE1ORIG->E1_VALOR - PARC->TOTALINC
|
||||||
|
|
||||||
|
if aFili[nI] == '0102'
|
||||||
|
n0102val := n0102total - PARC->TOTALINC
|
||||||
|
elseif aFili[nI] == '0105'
|
||||||
|
n0105val := n0105total - PARC->TOTALINC
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
|
Next nI
|
||||||
|
|
||||||
|
fWrite(nFileLog,"Total 0102: "+cvaltochar(n0102total) + " -> Parcela de: "+cvaltochar(n0102val) +CRLF)
|
||||||
|
fWrite(nFileLog,"Total 0105: "+cvaltochar(n0105total) + " -> Parcela de: "+cvaltochar(n0105val) +CRLF)
|
||||||
|
|
||||||
|
/////////////////
|
||||||
|
|
||||||
|
For nI := 1 To len(aFili)
|
||||||
|
|
||||||
|
if aFili[nI] == '0102'
|
||||||
|
nValPar := n0102val
|
||||||
|
elseif aFili[nI] == '0105'
|
||||||
|
nValPar := n0105val
|
||||||
|
endif
|
||||||
|
|
||||||
|
aTitulo := ACLONE(aNovoTitulo)
|
||||||
|
|
||||||
|
AADD(aTitulo, {"E1_PREFIXO" ,cE1PREFIXO ,Nil})
|
||||||
|
AADD(aTitulo, {"E1_FILIAL" ,aFili[nI] ,Nil})
|
||||||
|
AADD(aTitulo, {"E1_VALOR" ,nValPar ,Nil})
|
||||||
|
AADD(aTitulo, {"E1_SALDO" ,nValPar ,Nil})
|
||||||
|
AADD(aTitulo, {"E1_VLCRUZ" ,nValPar ,Nil})
|
||||||
|
|
||||||
|
lMsErroAuto := .F.
|
||||||
|
|
||||||
|
if aFili[nI] == '0102'
|
||||||
|
|
||||||
|
MSExecAuto({|x,y| FINA040(x,y)},aTitulo,3) //Inclusao
|
||||||
|
|
||||||
|
If lMsErroAuto
|
||||||
|
fWrite(nFileLog,"Erro " + CRLF)
|
||||||
|
fWrite(nFileLog,"Erro ao incluir titulo: "+CRLF+ MSErroString()+ CRLF + tojson(aTitulo) + CRLF)
|
||||||
|
return
|
||||||
|
else
|
||||||
|
fWrite(nFileLog,"Sucesso "+ CRLF)
|
||||||
|
fWrite(nFileLog,"Titulo incluido: "+ aFili[nI] +" : " + cValToChar(nValPar) +CRLF)
|
||||||
|
endif
|
||||||
|
|
||||||
|
elseif aFili[nI] == '0105'
|
||||||
|
fWrite(nFileLog,"Salvando titulos 05 para o final "+aFili[nI]+CRLF)
|
||||||
|
//StartJob("U_JOBF040",getenvserver(),.T., SE1ORIG->E1_FILIAL, aTitulo)
|
||||||
|
AADD(aTit05, aTitulo)
|
||||||
|
//fWrite(nFileLog,"passou pela thread "+CRLF)
|
||||||
|
else
|
||||||
|
fWrite(nFileLog,"Erro, filial nao tratada "+aFili[nI]+CRLF)
|
||||||
|
endif
|
||||||
|
|
||||||
|
Next nI
|
||||||
|
|
||||||
|
|
||||||
|
Reset Environment
|
||||||
|
|
||||||
|
While !RpcSetEnv('01', '0105',,,,GetEnvServer(),{})
|
||||||
|
Sleep(400)
|
||||||
|
End
|
||||||
|
|
||||||
|
For nI := 1 To len(aTit05)
|
||||||
|
|
||||||
|
lMsErroAuto := .F.
|
||||||
|
|
||||||
|
MSExecAuto({|x,y| FINA040(x,y)},aTit05[nI],3) //Inclusao
|
||||||
|
|
||||||
|
If lMsErroAuto
|
||||||
|
fWrite(nFileLog,"Erro " + CRLF)
|
||||||
|
fWrite(nFileLog,"Erro ao incluir titulo: "+CRLF+ MSErroString()+ CRLF + tojson(aTit05[nI]) + CRLF)
|
||||||
|
return
|
||||||
|
else
|
||||||
|
fWrite(nFileLog,"Sucesso "+ CRLF)
|
||||||
|
fWrite(nFileLog,"Titulo incluido: "+CRLF)
|
||||||
|
endif
|
||||||
|
|
||||||
|
Next nI
|
||||||
|
|
||||||
|
Reset Environment
|
||||||
|
|
||||||
|
fClose(nFileLog)
|
||||||
|
|
||||||
|
Return
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
////////////////////////
|
||||||
|
// Cancelamento da Fatura (Cancelamento do Reparcelamento)
|
||||||
|
// F280PCAN
|
||||||
|
// JOBF280C
|
||||||
|
//
|
||||||
|
|
||||||
|
User Function F280PCAN()
|
||||||
|
|
||||||
|
/**
|
||||||
|
* cFatCan - numero da fatura
|
||||||
|
* cPrefCan - prefixo
|
||||||
|
* cTipoCan - tipo
|
||||||
|
**/
|
||||||
|
|
||||||
|
If cEmpAnt == '06'
|
||||||
|
|
||||||
|
StartJob("U_JOBF280C",getenvserver(),.T., cPrefCan, cFatCan, cTipoCan)
|
||||||
|
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
Return .T.
|
||||||
|
|
||||||
|
|
||||||
|
User Function JOBF280C(cPrefCan, cFatCan, cTipoCan)
|
||||||
|
|
||||||
|
RpcSetType(3) // Nao consome licensa
|
||||||
|
|
||||||
|
While !RpcSetEnv('01', '0102',,,,GetEnvServer(),{})
|
||||||
|
Sleep(400)
|
||||||
|
End
|
||||||
|
|
||||||
|
nFileLog := u_OpenLog("\Logs\F280PCAN_"+dToS(dDataBase)+".log")
|
||||||
|
|
||||||
|
fWrite(nFileLog,"----- F280PCAN -----"+CRLF)
|
||||||
|
|
||||||
|
fWrite(nFileLog,"E1_PREFIXO = '"+ cPrefCan +"' and E1_NUM = '"+ cFatCan +"' and E1_TIPO = '"+ cTipoCan +"'"+CRLF)
|
||||||
|
|
||||||
|
cQuery := "select * from SE1010 where E1_PREFIXO = '"+ cPrefCan +"' and E1_NUM = '"+ cFatCan +"' and E1_TIPO = '"+ cTipoCan +"' and D_E_L_E_T_ <> '*'"
|
||||||
|
|
||||||
|
If select("SE1ORIG") > 0
|
||||||
|
SE1ORIG->(DbCloseArea())
|
||||||
|
endif
|
||||||
|
TcQuery cQuery New Alias 'SE1ORIG'
|
||||||
|
dbSelectArea("SE1ORIG")
|
||||||
|
SE1ORIG->(DBGOTOP())
|
||||||
|
|
||||||
|
While SE1ORIG->(!EOF()) //Loop entre todas as parcelas e filiais
|
||||||
|
|
||||||
|
SE1->(dbselectarea("SE1"))
|
||||||
|
SE1->(dbSetOrder(1))
|
||||||
|
|
||||||
|
|
||||||
|
fWrite(nFileLog,"dbseek" + CRLF)
|
||||||
|
if ! SE1->(dbSeek(SE1ORIG->E1_FILIAL+ SE1ORIG->E1_PREFIXO+ SE1ORIG->E1_NUM+ SE1ORIG->E1_PARCELA+ SE1ORIG->E1_TIPO))
|
||||||
|
fWrite(nFileLog,"Erro dbseek" + CRLF)
|
||||||
|
Alert("Erro. Verificar F280PCAN() - dbseek")
|
||||||
|
fWrite(nFileLog,"Erro dbseek("+SE1ORIG->E1_FILIAL+ SE1ORIG->E1_PREFIXO+ SE1ORIG->E1_NUM+ SE1ORIG->E1_PARCELA+ SE1ORIG->E1_TIPO+")" + CRLF)
|
||||||
|
return .F.
|
||||||
|
endif
|
||||||
|
|
||||||
|
cFilAnt := SE1ORIG->E1_FILIAL
|
||||||
|
|
||||||
|
aFatura:= {{"E1_FILIAL" ,SE1ORIG->E1_FILIAL ,Nil},;
|
||||||
|
{"E1_PREFIXO" ,SE1ORIG->E1_PREFIXO ,Nil},;
|
||||||
|
{"E1_NUM" ,SE1ORIG->E1_NUM ,Nil},;
|
||||||
|
{"E1_PARCELA" ,SE1ORIG->E1_PARCELA ,Nil},;
|
||||||
|
{"E1_TIPO" ,SE1ORIG->E1_TIPO ,Nil}}
|
||||||
|
|
||||||
|
lMsErroAuto := .F.
|
||||||
|
|
||||||
|
MSExecAuto({|x,y| FINA040(x,y)},aFatura,5) //Exclus<75>o
|
||||||
|
|
||||||
|
If lMsErroAuto
|
||||||
|
fWrite(nFileLog,"Erro " + CRLF)
|
||||||
|
fWrite(nFileLog,"Erro ao remover o titulo: "+CRLF+ MSErroString()+ CRLF + tojson(aFatura) + CRLF)
|
||||||
|
Alert("Erro ao remover o titulo. Verificar F280PCAN()")
|
||||||
|
return .F.
|
||||||
|
else
|
||||||
|
fWrite(nFileLog,"Sucesso "+ CRLF)
|
||||||
|
fWrite(nFileLog,"Titulo removido" +CRLF)
|
||||||
|
endif
|
||||||
|
|
||||||
|
SE1ORIG->(dbskip())
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
/////////////////////////////////////////////
|
||||||
|
/////// Cancela as baixas
|
||||||
|
///
|
||||||
|
|
||||||
|
fWrite(nFileLog,"- cancela baixas" + CRLF)
|
||||||
|
|
||||||
|
cQuery := "select * from SE1060 where E1_FATURA = '"+ cFatCan +"' and D_E_L_E_T_ <> '*'"
|
||||||
|
|
||||||
|
If select("SE1ORIG") > 0
|
||||||
|
SE1ORIG->(DbCloseArea())
|
||||||
|
endif
|
||||||
|
TcQuery cQuery New Alias 'SE1ORIG'
|
||||||
|
dbSelectArea("SE1ORIG")
|
||||||
|
SE1ORIG->(DBGOTOP())
|
||||||
|
|
||||||
|
aFili := {"0102", "0105"}
|
||||||
|
|
||||||
|
While SE1ORIG->(!EOF()) //Loop entre todas as parcelas e filiais
|
||||||
|
|
||||||
|
SE1->(dbselectarea("SE1"))
|
||||||
|
SE1->(dbSetOrder(1))
|
||||||
|
|
||||||
|
For nI := 1 To len(aFili)
|
||||||
|
|
||||||
|
cFilAnt := aFili[nI]
|
||||||
|
|
||||||
|
fWrite(nFileLog,"dbseek" + CRLF)
|
||||||
|
if ! SE1->(dbSeek(aFili[nI]+ SE1ORIG->E1_PREFIXO+ SE1ORIG->E1_NUM+ SE1ORIG->E1_PARCELA+ SE1ORIG->E1_TIPO))
|
||||||
|
fWrite(nFileLog,"dbseek nao encontrou titulo para filial "+aFili[nI] + CRLF)
|
||||||
|
fWrite(nFileLog,"dbseek('"+aFili[nI]+ SE1ORIG->E1_PREFIXO+ SE1ORIG->E1_NUM+ SE1ORIG->E1_PARCELA+ SE1ORIG->E1_TIPO+"')" + CRLF)
|
||||||
|
LOOP
|
||||||
|
endif
|
||||||
|
|
||||||
|
nSE5Recno := u_RetSQLOne("select R_E_C_N_O_ from SE5010 where E5_FILIAL = '"+SE1->E1_FILIAL+"' and E5_PREFIXO = '"+SE1->E1_PREFIXO+"' and E5_TIPO = '"+SE1->E1_TIPO+"' and E5_NUMERO = '"+SE1->E1_NUM+"' "+;
|
||||||
|
" and E5_FATURA = '"+SE1->E1_FATURA+"' and E5_FATPREF='"+SE1->E1_FATPREF+"' and D_E_L_E_T_ <> '*' ", "R_E_C_N_O_")
|
||||||
|
|
||||||
|
//Removemos os Flags de Fatura para conseguirmos cancelar a baixa pelo FINA070
|
||||||
|
RECLOCK('SE1',.F.)
|
||||||
|
E1_FATURA := ''
|
||||||
|
E1_FATPREF:= ''
|
||||||
|
E1_TIPOFAT:= ''
|
||||||
|
E1_FLAGFAT:= ''
|
||||||
|
E1_DTFATUR:= StoD('')
|
||||||
|
MSUNLOCK()
|
||||||
|
|
||||||
|
SE5->(DbGoTo(nSE5Recno))
|
||||||
|
RECLOCK('SE5',.F.)
|
||||||
|
E5_MOTBX := 'NOR'
|
||||||
|
//E5_FATURA := ''
|
||||||
|
//E5_FATPREF:= ''
|
||||||
|
MSUNLOCK()
|
||||||
|
|
||||||
|
aBaixa := {{"E1_FILIAL" ,SE1->E1_FILIAL ,Nil},;
|
||||||
|
{"E1_PREFIXO" ,SE1->E1_PREFIXO ,Nil},;
|
||||||
|
{"E1_NUM" ,SE1->E1_NUM ,Nil},;
|
||||||
|
{"E1_TIPO" ,SE1->E1_TIPO ,Nil},;
|
||||||
|
{"E1_PARCELA" ,SE1->E1_PARCELA ,Nil},;
|
||||||
|
{"E1_DESCONT" ,SE1->E1_DESCONT ,Nil},;
|
||||||
|
{"E1_JUROS" ,SE1->E1_JUROS ,Nil},;
|
||||||
|
{"E1_MULTA" ,SE1->E1_MULTA ,Nil},;
|
||||||
|
{"E1_VLRREAL" ,SE1->E1_VLRREAL ,Nil},;
|
||||||
|
{"AUTMOTBX" ,"NOR" ,Nil},;
|
||||||
|
{"AUTDTBAIXA" ,date() ,Nil},;
|
||||||
|
{"AUTDTCREDITO",date() ,Nil},;
|
||||||
|
{"AUTHIST" ,"" ,Nil},;
|
||||||
|
{"AUTVALREC" ,SE1->E1_VALOR ,Nil}}
|
||||||
|
|
||||||
|
|
||||||
|
lMsErroAuto:=.F. //reseta lMsErroAuto
|
||||||
|
MSExecAuto ({|x,y| FINA070(x,y)},aBaixa, 5)
|
||||||
|
|
||||||
|
If lMsErroAuto
|
||||||
|
fWrite(nFileLog,SE1->E1_FILIAL+" : Não foi efetuada o cancelamento de baixa : "+CRLF+ MSErroString()+ CRLF + tojson(aBaixa) + CRLF)
|
||||||
|
return
|
||||||
|
else
|
||||||
|
fWrite(nFileLog,SE1->E1_FILIAL+" : cancelamento de baixa feito" +CRLF)
|
||||||
|
endif
|
||||||
|
|
||||||
|
Next nI
|
||||||
|
|
||||||
|
SE1ORIG->(dbskip())
|
||||||
|
end
|
||||||
|
|
||||||
|
Reset Environment
|
||||||
|
|
||||||
|
Return
|
||||||
Reference in New Issue
Block a user