FiveTech Software tech support forums

... /100 nSub2 := nSub-nDescto1-nDescto2 nIva := nSub2 * nTasaIva / 100 nTotal := nSub2 + nIva TotLet := NumPal(nTotal, cMoneda) oPrn:Say(050,001,Padc(TotLet,130," ")) nLin := 51 IF cMoneda = "D" oPrn:Say(nLin,107,Padc(cMone,29,"-")) ENDIF oPrn:Say( ++nLin,107,"Subtotal ...

... source\rtl\net.c: source\rtl\oemansi.c: source\rtl\oemansix.c: source\rtl\oldbox.c: source\rtl\oldclear.c: source\rtl\pad.c: source\rtl\padc.c: source\rtl\padl.c: source\rtl\padr.c: source\rtl\philes.c: source\rtl\philes53.c: source\rtl\philesx.c: source\rtl\rat.c: source\rtl\replic.c: ...

... source\rtl\net.c: source\rtl\oemansi.c: source\rtl\oemansix.c: source\rtl\oldbox.c: source\rtl\oldclear.c: source\rtl\pad.c: source\rtl\padc.c: source\rtl\padl.c: source\rtl\padr.c: source\rtl\philes.c: source\rtl\philes53.c: source\rtl\philesx.c: source\rtl\rat.c: source\rtl\replic.c: ...

... nRow:=2 oPrnCmp:=TDosPrn():New(cLptDoc) oPrnCmp:Command( { 27, 64 } ) IF IMPCBT // imprime cabecera ?? oPrnCmp:Say( nRow, 00, PADC(TRIM(cMiCia),40), ) nRow++ DO CASE CASE UPPER(cMiCia)="ELECTROSERVIS" oPrnCmp:Say( nRow, 00, PADC('De : '+TRIM(cMiPro),40), nCompress ...

Antonio, Instalé la versión que puedes descargar desde fivetech, la 1.0.1 si no me equivoco, por si esta era antigua y me da un porrón de errores...a ver si doy con ello Me sale esto...(perdón por el mogollón) C:\HARBOUR\TESTS>c:\borland\bcc55\bin\ilink32 -aa -Tpe @b32.bc Turbo Incremental Link 5...

Willy Creo que lo que sucede es que no recibe ningun comando, le pongo con la tdosprn : oPrnCmp:Say( nRow, 00, PADC(cMiCia,40),nBold ) y tampoco pasa nada. deberia imprimir el titulo en negrita y no hace nada, baje un pdf con los codigos de impresion y es el mismo que me dices ...

... nRow:=2 oPrnCmp:=TDosPrn():New(cLptDoc) oPrnCmp:Command( { 27, 64 } ) IF lCabecera // imprime cabecera ?? oPrnCmp:Say( nRow, 00, PADC(cMiCia,40) ) nRow++ oPrnCmp:Say( nRow, 00, Repl('-',40), nCompress ) nRow++ oPrnCmp:Say( nRow, 00, PADC('R.U.C. '+IMPRUC,40), nCompress ) nRow++ ...

... ordlistadd, ordsetfocus, fieldput,; fieldget, __SetCentury, Alert, Lfn2Sfn, Sfn2Lfn REQUEST descend,alltrim,strtran,transform,padr,padl,padc REQUEST IsAlpha, IsDigit, IsLower, IsUpper REQUEST left, rat, right REQUEST cursorarrow, cursorwait REQUEST TDatabase REQUEST SndPlaysound, nSerialHD ...

... ordlistadd, ordsetfocus, fieldput,; fieldget, __SetCentury, Alert, Lfn2Sfn, Sfn2Lfn REQUEST descend,alltrim,strtran,transform,padr,padl,padc REQUEST IsAlpha, IsDigit, IsLower, IsUpper REQUEST left, rat, right REQUEST cursorarrow, cursorwait REQUEST TDatabase REQUEST SndPlaysound, nSerialHD ...

... ** REDEFINE LISTBOX oLbx ; FIELDS oRs:Fields("CLASE"):value, ; oRs:Fields("NOMBRE"):value, ; NUM2STR(oRs:Fields("CONTROL"):value, 10, 0) ; HEADERS PADC ( "Clase", 18 ) , ; PADC("Nombre",80), ; PADC("Ref.",10) ; FIELDSIZES 90, 290, 20 ; ID 101 ; OF oDlg ; ON DBLCLICK F_ALTA(oRs, .F., oLbx ) oLbx:bLogicLen ...

... REDEFINE LISTBOX oLbx ; FIELDS oRs:Fields("CLASE"):value, ; oRs:Fields("NOMBRE"):value, ; NUM2STR(oRs:Fields("CONTROL"):value, 10, 0) ; HEADERS PADC("Clase",18) , ; PADC("Nombre",80), ; PADC("Ref.",10) ; FIELDSIZES 90, 290, 20 ; ID 101 ; OF oDlg oLbx:aJustify ={.F.,.F.,.t.} oLbx:bLogicLen = ...

... // ACTIVA RECEIVE COMO HOJA(TICKET) oRep:Say(00,00,CHR(27)+"z"+CHR(0)) //Inicia de la impresion del Fondo oRep:Say(n,00,Padc("REGISTRO DE FONDO INICIAL",38,"*")) oRep .............. //Termina la impresion del Fondo n++ cCmd:=Fechas(Date())+" "+Time()+" "+Str(oSys:TiendaSys())+" ...

... x } uBrw:aCols[3]:nEditType := EDIT_GET uBrw:aCols[3]:bStrData := {|| TRANS(bStruc[uBrw:nArrayAt, 3 ] ,"@E 999,999.99")} uBrw:aCols[4]:cHeader := padc("Vencimento",11) ubrw:aCols[4]:nWidth := 80 uBrw:aCols[4]:nDataStrAlign := AL_CENTER uBrw:aCols[4]:nHeadStrAlign := AL_CENTER uBrw:aCols[4]:bOnPostEdit ...

... x } uBrw:aCols[3]:nEditType := EDIT_GET uBrw:aCols[3]:bStrData := {|| TRANS(bStruc[uBrw:nArrayAt, 3 ] ,"@E 999,999.99")} uBrw:aCols[4]:cHeader := padc("Vencimento",11) ubrw:aCols[3]:nWidth := 80 uBrw:aCols[4]:nDataStrAlign := AL_CENTER uBrw:aCols[4]:nHeadStrAlign := AL_CENTER uBrw:aCols[4]:bOnPostEdit ...

Ya lo resolví

PadC(rtrim(ltrim(xTit1)),30," ")

Saludos

Ruben Fernandez.