**********parte 2 genera informe cobranza
CLOSE ALL
SET DEFA TO C:\Gestion\data
** Actualiza Datos Clientes desde Sap
erase cliente.dbf
erase clienter.dbf
WS_BASE="DIMAR_FINAL"
IF (WS_BASE="DIMAR_FINAL")
vcon=SqlStringConnect ("Dsn=SAPBO_DIMAR; UID=sa; PWD=B1Admin; SERVER=SAPBO; DATABASE=DIMAR_FINAL;")
ELSE
vcon=SqlStringConnect ("Dsn=SAPBO_DIMAR; UID=sa; PWD=B1Admin; SERVER=SAPBO; DATABASE=DIMAR_SA;")
ENDIF
vexe=SqlExec (vcon,"SELECT left(CL.LicTradNum,15) as 'Rutx', " + ;
"'99999999' as 'Rut', " + ;
"CL.CardName as 'Razon', " + ;
"CL.Address as 'Direccion', " + ;
"CL.County as 'Descripcio', " + ;
"CL.City as 'Ciudad', " + ;
"CL.Phone1 as 'Fono', " + ;
"CL.Fax as 'Fax', " + ;
"CV.ExtraDays as 'Dias_Cond_', " + ;
"CL.CreditLine as 'No_docum', " + ;
"CL.DebtLine as 'Docum', " + ;
"0 as 'Bloqueo_cr', " + ;
"0 as 'Bloque0_c2', " + ;
"CV.PymntGroup as 'Descripci2', " + ;
"0 as 'Jerarquia', " + ;
"CL.SlpCode, " + ;
"CL.CardCode, " + ;
"CA.SlpName as 'Descripci3', " + ;
"0 as 'Filial' " + ;
"FROM OCRD CL INNER JOIN " + ;
" OCTG CV ON CL.GroupNum = CV.GroupNum INNER JOIN " + ;
" OSLP CA ON CL.SlpCode = CA.SlpCode " + ;
"WHERE Right(CL.CardCode,1) = 'C' " + ;
"ORDER BY CL.CardName " + ;
" " , "DETALLE")
SqlDisconnect (vcon)
select * from DETALLE into table clienter
close all
** Fin lectura de Clientes a clienter.dbf
USE clienter.dbf SHARED
copy to c:\Gestion\data\cliente.dbf
close all
USE C:\Gestion\data\cliente.dbf EXCLUS
Replace all cliente.rut with left(cliente.rutx,atc('-',cliente.rutx)-1)
close all
store datetime() to FEC_HOY
store fdate('c:\Gestion\DATA\ccdocob.DBF',1) to FEC_CCDO
store " " TO WS_RAZON
DO form c:\Gestion\FORMS\Cobranza.scx
read events
store fdate('c:\Gestion\DATA\ccdocob.DBF',1) to FEC_CCDO
do form c:\Gestion\FORMS\Cobranza_2.scx
read events
USE C:\Gestion\data\ccdocob_3.dbf exclus
if (WS_RAZON <> " ")
delete all for ccdocob_3.razon_soc <> WS_RAZON
pack
close all
endif
SET DEFA TO C:\Gestion\data
erase cobranza.dbf
DO C:\Gestion\REPORTS\cobranza.qpr
use cobranza
index on razon_soc+tipo_doc tag WIZARD_1
REPORT form C:\Gestion\REPORTS\COBRANZA.frx to print prompt
QUIT