FiveTech Software tech support forums

... varchar(6) default ' ',
`POLIZA` varchar(13) default ' ',
`CONCEPTO` varchar(100) default ' ',
`CARGOS` decimal(14,2) default '0.00',
`ABONOS` decimal(14,2) default '0.00',
`FECHA` date NOT NULL,
`FECHACAP` date NOT NULL,
`HORA` varchar(8) NOT NULL,
`CONCEPTO2` varchar(100) default ...

... Extra
LLAVE varchar(20) NO PRI
PERIODO varchar(6) YES MUL
POLIZA varchar(13) YES MUL
CONCEPTO varchar(100) YES
CARGOS decimal(14,2) YES 0
ABONOS decimal(14,2) YES 0
FECHA date NO MUL
FECHACAP date NO
HORA varchar(8) NO
CONCEPTO2 varchar(100) YES
FECHA2 date YES 0000-00-00 ...

... y pegar a excel.

Para que el usuario se le facilite manipular directamente a excel y pueda hacer uso de datos de extracion de fechas, cargos y abonos del estado de cuenta bancaria.

Y sobre todo adaptarlo a mi aplicacion a mi codigo fuente .prg.

Saludos y nuevamente gracias.

Atte: Adriano C. C.

... ejemplo de como se puede convertir de pdf a excel, desde aplicacion ya que necesito extraer informacion por ejemplo estados de cuentas de cargos abonos y manipularlos en la hoja de excel.

Les agradecere mucho si me dan alguna pista de un ejemplo de codigo fuente y adaptarlo a mi propia aplicacion ...

... me interesa mas que visualice bien los datos
aSum[1,1] := aSum[1,1] + S91->SALCARG // Suma Cargos
aSum[1,2] := aSum[1,2] + S91->SALCRED // Suma Abonos
aSum[1,3] := aSum[1,3] + S91->SALDOS // Suma Dif de saldos
aSum[1,4] += (S91->SALCARG - S91->SALCRED)

aTot[1,1] := aTot[1,1] + S91->SALCARG ...

... Andube buscando por el foro al igual en los samples, pero no encontre nada parecido a lo que quiero hacer en los campos de gets de Cargos y Abonos.
Resulta que al teclear un importe negativo que me muestre en color rojo ,pero no logro dar con el resultado de lo que quiero hacer, para mayor ...

joseluisysturiz,

Haber si entendi, por ejemplo.

Cliente con campos
Cliente
Calle
Numero
Etc

Detalle de clientes
Cliente
Cargos
Abonos
Fecha
Etc

SELECT a.cliente, a.calle, a.numero, b.cargo, b.abono, b.fecha FROM clientes AS a INNER JOIN detalle_clientes AS b ON b.cliente=a.cliente WHERE ...

... oBrw2:aCols[5]:cHeader := "Cargos" ; oBrw2:aCols[5]:cEditPicture := '99,999,999.99'
oBrw2:aCols[6]:nWidth := 100 ; oBrw2:aCols[6]:cHeader := "Abonos" ; oBrw2:aCols[6]:cEditPicture := '99,999,999.99'

oBrw2:aCols[5]:nFooterType := AGGR_SUM
oBrw2:aCols[6]:nFooterType := AGGR_SUM

oBrw2 ...

... SELECT C
USE c:\temp\product.dbf NEW SHARED
INDEX ON codprov+codprod TAG MIINDICE

REPORT oReport TITLE " ","EMPRESA X S.A. ","ESTADO DE SALDOS Y ABONOS", "HISTORICO X CLIENTE ";
PREVIEW
COLUMN TITLE "Item" DATA consec,codprod FONT 1 SIZE 12
COLUMN TITLE "Referencia" DATA simbolo,referencia FONT ...

... SELECT C
USE CLIENTES NEW SHARED
INDEX ON C->COD_CLI + C->NUM_DOC TAG MIINDICE

REPORT oReport TITLE " ","EMPRESA X S.A. ","ESTADO DE SALDOS Y ABONOS", "HISTORICO X CLIENTE ";
PREVIEW

GetPrintDc()

COLUMN TITLE "No FACT " DATA C->NUM_DOC SIZE 9
COLUMN TITLE "Fecha " DATA C->FEC_FAC PICTURE ...

Me esta pasando algo muy extraño.

tengo el siguiente codigo:

saldo:=traesaldo()
if Saldo=0 <- Esta condicion a veces la respeta y a veces no, y saldo si trae de valor Cero !!!
skip
loop
endif


functio traesaldo()
sal:=0
sal:= suma resta cargos-abonos de una base de datos
return(sal)

... nLargo,i,cDir
Field RUTCLI,NOMCLI,DIRCLI,MARCA,MODELO,PATENTE,NUMLIQ,FECHA,CODIGO,FACNUM,FACFE,RUTPRO,BOLNUM,BOLFE
Field REPAR,DETALLE,CARGOS,ABONOS,COMUNA,CIUDAD,PRVRUT,PRVNOM,PRVGIR,PRVDIR,NUMDOC,NUMFAC,FEFAC,CLIGIR
Field MARCAVE,FEVENCI,RUT

cDir:=Alltrim(cDirBas)+""

aInd:={{1,"PROV01 ...

... aTotal[1] } ;
3DLOOK TRUE ALIGN DT_RIGHT, DT_CENTER, DT_RIGHT;
EDITABLE MOVE DT_MOVE_NEXT

ADD COLUMN TO ::oLbx2 ; // 4
HEADER "Abonos" ;
SIZE 100 PIXELS ;
DATA FieldWblock( "M_ABONO", Select() ) ;
PICTURE "99999,999.99" ;
FOOTER { || ::aTotal[2] } ;
3DLOOK TRUE ALIGN DT ...

... grande. Despues de tener casi terminada la modificacion, me di cuenta de un problema grave. Cuando estoy en una ventana, usando un archivo llamado ABONOS.DBF, el que abro con un ALIAS X y su CDX correspondiente, ahora, si abro otra ventana con la misma base con otro ALIAS y el mismo CDX, al ...

... 0
Endif

cNomMda := SearchMaestros("06",(cAlias)-
>Moneda, 4)

nParcialN := nParcialN + (cAlias)->Neto
nParcialA := nParcialA + (cAlias)->Abonos
nParcialS := nParcialS + (cAlias)->Saldo

oPrn:cmSay( nFila, 1.0, Dtoc((cAlias)-
>Fecha) , oFnt10C )
oPrn:cmSay( nFila, 3.2, (cAlias)-
>TIPO ...