FiveTech Software tech support forums

... aHBitmaps[ Max( 1, AUTOS->NIVEL ) ] ,; STR(AUTOS->NUMERO) ,; AUTOS->FICHA ,; AUTOS->R_POLIZA ,; AUTOS->POLIZA ,; str(AUTOS->pagado) ; HEADERS "","Nr", "Ficha", "Poliza", "Inciso","Pagado"; COLOR RGB(46,139,87), RGB(106,90,205); ...

... FUNCTION xBrowser(oDlg) oQry := oCon:oKon:Query( "SELECT guias,fecha,envia,recibe,monto,movimiento,pagado,chofer,placa,agencia_destino,entro,entrofecha,control,recibio,nrecibio,direcion,referencia,agencia_origen FROM movimientos WHERE agencia_origen='"+OP:AGENCIA+"' ...

... COLUMN TITLE "Numero" ; DATA (cPAGMOV)->Numero COLUMN TITLE "Fecha" ; DATA (cPAGMOV)->Fecha COLUMN TITLE "Monto" ; DATA (cPAGMOV)->Pagado ; PICTURE "@E 9,999,999" ; TOTAL ; GRID END REPORT ACTIVATE REPORT oInforme ; WHILE .NOT.(cPAGMOV)->(EOF()) .AND. (cPAGMOV)->Tipo = "IN" ...

... Vuelto( vPag, vSay, oBtn, oSay ) CLASS FT604 vSay[03] := Transform( vPag - vSay[02], "999,999,999" ) IF Val( vSay[03] ) < 0 MsgInfo( "Monto Pagado es incorrecto....!!","Atención Cajeros..." ) vPag := 0 oBtn[01]:Disable() ELSE oBtn[01]:Enable() ENDIF oSay[03]:Refresh() RETURN .T. /*-----------------------------------------------------------------------------------------------*/ ...

Silvio, Ya se que esta clase siempre se han pagado y de hecho yo me contacté con Paco el 13 de junio de este año dispuesto a pagar por ella pero me dijo que ha cedido el código a Juan Carlos (Creador de VerCE) quien le ha hecho modificaciones y ...

... tenes la posibilidad, si te asusta 72 append, es la de generar por credito un solo registro, y actualizarlo mensualmente. Por mes vencido o pagado, segun el caso, generas un registro de ese mes en un archivo historico de cobranza/vencimiento, entonces cuando informas el estado de cuenta ...

... + CalMonto ENDIF ELSE s:= "‚" + Chr(28) + SUBSTR(Texto,1,108) + Chr(28) + Cantidad ENDIF Enviar(s,Handler) Return nil Function ITotalFis(Texto,Pagado,Operacion,Handler) /* Texto ES EL TEXTO A IMPRIMIR EN EL TOTAL (HASTA 30 CARACTERES) A Pagado EL MONTO PAGADO POR EL CLIENTE (+/- XXXXXXXXX.XX) ...

... ese creo que debe de pagarse el soft y el BCC este es gratuito. Bien recopilando y corrigeme si me equivoco.. tomando en cuenta que el FWh2.7 es pagado el resto seria gratuito hablando de harbour o Xharbour, admemas veo que exisen herramientas muy buenas que ovio que son adquiridas por un metodo ...

... Array( 04 ) oSay := Array( 04 ) vGet := Array( 03 ) oGet := Array( 03 ) vPag := 0 vSay[01] := ::vGet[03] vSay[02] := ::vSay[01] vSay[04] := "Valor Pagado" vSay[03] := 0 DO CASE CASE nPos == 1 .OR. nPos == 5 .or. nPos == 6 DEFINE FONT oFont NAME "Times New Roman" SIZE 0, -20 BOLD ITALIC DEFINE Dialog ...

... ej local, en camino etc lo que quiero hacer es asignarle un color a cada condicion solamente en esas columna . EJ columa "ESTADO" COLUMNA PAGADO LOCAL BLANCO SI VERDE EN CAMINO AMARILLO NO ROJO DESDE YA MUCHISIMAS GRACIAS dANTE DEVWIN2004@YAHOO.COM.AR