FiveTech Software tech support forums

... oDlg, cUrl := '', cXT := '' LOCAL cTmpFile := cTempFile() + '.XML', cText := '', cFile := '', nFile := 0 LOCAL cschema := '', lStampata := .F., lauto := .F. cFile := 'FATTURA.xml' IF .NOT. File( cFile ) ? '2-File non trovato ' + cFile RETURN .F. ENDIF cText := MemoRead( cFile ) cSchema := 'http:\\www.nipeservice.it\FS\FoglioStile.xsl' ...

... ,oDlg ,cUrl := '' , cXT := '' Local cTmpFile := cTempFile() +'.XML' ,cText := '' ,cFile := '' , nFile := 0 Local cschema := '' ,lStampata := .f. ,lauto := .F. //cFile := '\\linux\dati\sql\mastronipe\FATTURE_XML\PASSIVE\IT10168371002_00ZOY.xml' cFile := 'FATTURA.xml' IF ! file(cFile) ? '2-File ...

... ,oDlg ,cUrl := '' , cXT := '' Local cTmpFile := cTempFile() +'.XML' ,cText := '' ,cFile := '' , nFile := 0 Local cschema := '' ,lStampata := .f. ,lauto := .F. //cFile := '\\linux\dati\sql\mastronipe\FATTURE_XML\PASSIVE\IT10168371002_00ZOY.xml' cFile := 'IT10168371002_00ZOY.xml' IF ! file(cFile) ...

... I try to insert this method : METHOD NeedNewPage() INLINE ( ::nRow >= ::nBottomRow ) and modify the method METHOD EndLine(nHeight, nItem,lAuto) METHOD EndLine(nHeight, nItem,lAuto) CLASS TLabel     STATIC lRunning := .F.      DEFAULT nHeight := ::nStdLineHeight  ...

... nKey was not defined as a LOCAL. Fixed. Method AutoFill: nLength was mispelled (as nLenght). Fixed. Method AutoFill: ::Cargo changed to ::lAuto (see reason below) Method AutoFill: Changed to using vkey.ch manifest constants instead of numbers. Method Redefine: Was passing aItems to the ...

... regalar el programa a quien le interese por su funcionalidad. ( si alguien cuando lo termine, quiere lo fuentes, solo tienen que pedirlo ). Para Lauto: Sobre HbhPDF Port, entiendo que es una impresora virtual no? Me he bajo los fuentes, pero como en harbour soy un iniciado desconzco como compilar ...

James,

Thank you. Fixed:

METHOD LostFocus( hWndGetFocus ) inline ::SetPos(1), ::lAuto := .T., ::super:LostFocus( hWndGetFocus )

mgsoft, Yes, I see that there are still some bugs. lAuto is nil when the class is intialized, then set to .t. or .f. and at the point you have shown an attempt is made to set it to nil again. This seems to be triggering the error. The code should ...

James, Thank you for your reply. The error is Error description: Error BASE/44 Assigned value is wrong class: TAUTOGET:LAUTO and the error is in METHOD LostFocus( hWndGetFocus ) inline ::SetPos(1), ::lAuto := Nil, ::super:LostFocus( hWndGetFocus ) If I comment out this method, it ...

... ............. oDlg:bKeyDown := {|nK| if( ( nK == Asc( "A" ) .OR. nK == Asc( "a" ) ) .AND. GetKeyState( VK_CONTROL ), ; ( IF(lAuto[VAL(nCaja)],lAuto[VAL(nCaja)]:=.F.,lAuto[VAL(nCaja)]:=.T.),; oMsgItem[4]:SetText("Venta Aut.: "+IF(lAuto[VAL(nCaja)],"S","N")),; oMsgItem[4]:Refresh(), ...

... from start: 0 hours 0 mins 2 secs Error occurred at: 04/28/07, 22:07:45 Error description: Error BASE/44 Assigned value is wrong class: TAUTOGET:LAUTO Args: [ 1] = U Stack Calls =========== Called from: => TAUTOGET:_LAUTO(0) Called from: autoget.prg => (b)TAUTOGET(0) Called from: => ...