FiveTech Software tech support forums

... se puede conectar con la Sucursal Remota","Reintente más tarde!","Aviso") RDDSETDEFAULT( "DBFCDX" ) RETU .F. else MsgWait('CONECTADO, Aguarde...','AVISO', 1 ) endif TRY /// Dbusearea(.t.,"LETO",cServer+'/wfprodu','ProduNew',.T.,.F.) NO FUNCIONA ...

... esa aplicación. Webservice : https://homologacion.farmalink.com.ar/VentaSecureSvc?wsdl MAIN() buscarRespuesta(sXmlIda,'P',100000,'A','Farmalink') RETU .T. ///////////////////////////////////////////////////////////////////////////////////////// [b]Public Function buscarRespuesta(ByVal sXmlIda ...

Jimmy,

WDO was dessigned for modharbour. You can try create dummy functions

Function ptrtostr(); retu ""

Function ptrtoui(); retu ""

... ELSE 0012 App():ShowError( "Method search() not defined in customer.prg controller.", "Controller Error!" ) 0013 ENDIF 0014 RETU NIL 0015 _HB_CLASS Customer ; function Customer ( ... ) ; thread STATIC s_oClass ; LOCAL nScope, oClass, oInstance ; IF s_oClass == NIL .AND. __clsLockDef( ...

... Grabo el Archivo XML con el Nombre TRA.xml If( ( nHandle := fcreate( cPath+'TRA.xml', 0 ) ) == -1 ) MsgStop( 'NO se pudo crear TRA.xml',' ERROR' ) Return( .F. ) Else fWrite( nHandle, cXml ) fClose( nHandle ) End cCmdSign := 'openssl smime' +; ' -sign' +; ' -in ' + cPath+ 'TRA.xml' +; // Archivo ...

... componente InternetExplorer.Application 1","Error al firmar, reintentando",2) // AQUI tengo el problema, a veces sale, a veces NO retu .f. END WITH OBJECT oIE :Visible := .F. :ToolBar := .F. :FullScreen := .F. :Invoke( "Navigate", cURL ) END WITH TRY oIE:Navigate2( clinkSing ...

... Grabo el Archivo XML con el Nombre TRA.xml If( ( nHandle := fcreate( cPath+'TRA.xml', 0 ) ) == -1 ) MsgStop( 'NO se pudo crear TRA.xml',' ERROR' ) Return( .F. ) Else fWrite( nHandle, cXml ) fClose( nHandle ) End cCmdSign := 'openssl smime' +; ' -sign' +; ' -in ' + cPath+ 'TRA.xml' +; // Archivo ...

... FONT 2 oReport:lGrid := .T. oReport:cGrandTotal := "Total Geral ==>" END REPORT IF !oReport:lCreated RETU NIL ENDIF oReport:oTitle:aFont[1] := {|| 2 } //1ra linha do titulo, cor e fonte 2 oReport:nTopMargin := 600 //Espacio superior oReport:nDnMargin ...

... ,"https://dniruc.apisperu.com/api/v1/dni/&xnruc",.F.) Othe msginfo("Error Ingreso","Intente Nuevamente") Retu nil Endc &:='jdjddjjd.dcd..c.d.cd..cdcd.d.c.d.cd.cd.c.dc.d.cd.d.dc.dc.d.cd.cd.c.dc.d.cd.c.d' // remplazar valor de token que te enviaran por ...

... oCode:Reset() oCode:Build() Drawbitmap( oPrn:hDCOut, oCode:hCodeBar, nRow,nCol) // aca deberia dibujar el QR hace unos dias lo hacia pero ahora no RETU oCode esta es la clase TCodeBars de Garcia GIl que estoy usando hace mucho sin problemas hasta ahora /////// CLASS TCODEBARS ////////////////////// ...

... 'RAZON' ALIGN 'left' SORT ADD oCol TO oBrw ID 'tiporegime' HEADER 'TIPOREGIMEN' ALIGN 'left' WIDTH 200 INIT BROWSE oBrw DATA aData END FORM o RETU NIL https://subir-imagen.com/i/RA2Mm

... ELSE 0012 App():ShowError( "Method search() not defined in customer.prg controller.", "Controller Error!" ) 0013 ENDIF 0014 RETU NIL 0015 0016 _HB_CLASS Customer ; function Customer ( ... ) ; STATIC s_oClass ; LOCAL nScope, oClass, oInstance ; IF s_oClass == NIL .AND. __clsLockDef( ...

... ELSE 0012 App():ShowError( "Method search() not defined in customer.prg controller.", "Controller Error!" ) 0013 ENDIF 0014 RETU NIL 0015 0016 _HB_CLASS Customer ; function Customer ( ... ) ; STATIC s_oClass ; LOCAL nScope, oClass, oInstance ; IF s_oClass == NIL .AND. __clsLockDef( ...

... oCol TO oBrw ID 'razon' HEADER 'RAZON SOCIAL' SORT ADD oCol TO oBrw ID 'direcc' HEADER 'DIRECCION' WIDTH 70 INIT BROWSE oBrw DATA aData END FORM o RETU NIL

... ImprimirFoto(wfoto) PRINT oPrn PREVIEW MODAL PAGE oPrn:SayImage(0,0, wfoto, oPrn:nHorzRes(), oPrn:nVertRes() , nil, .t. ) ENDPAGE ENDPRINT retu .t. No da error, pero muestra una hoja en blanco. Saludos Jorge