FiveTech Software tech support forums

... en valores hexadecimales. Ej: 02006236303030303030303030313030302020301C 'Retorna el LRC en valor Hexadecimal. Ej. 5D Private Function CheckLCR(ByVal s As String) As String Dim checksum As Integer = 0 'Este valor lo reemplazé por 2 y todo salió de maravillas. For Each c As Char In GetStringFromHex(s) ...

... ' You can display an error message or prompt the user to close the document manually End If End If End Sub Private Function GetJWordDocumentState(ByVal hWnd As IntPtr) As Boolean Dim cds As New CopyDataStruct() cds.dwData = IntPtr.Zero cds.lpData = String.Empty cds.cbData = 0 Dim result As IntPtr ...

... RETU .T. ///////////////////////////////////////////////////////////////////////////////////////// [b]Public Function buscarRespuesta(ByVal sXmlIda As String, ByVal sTipo As String, ByVal nIdTran As Long, ByVal sTipoVal As String, ByVal sRootSwitch As String) As String [/b] ''sXmlIda= ...

... As StringDim ShortFileName As StringPrivate Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal longPath As String, ByVal shortPath As String, ByVal shortBufferSize As Int32) As Int32 I understand that you can get the alias of a file using ...

Buen dia Amigos del Foro En .NET tenemos una funcion como esta para abrir un puerto de impresora Public Function AbrirPuerto(ByVal wPuerto As UShort, ByVal dwBaudios As UInteger) As UInteger [Ejemplo] Dim iRet As UInteger iRet = DFiscal.AbrirPuerto(1, 9600) Me pueden indicar como lo ...

... requested FAR set by the FARRequested property. Syntax Dim oVerificationResult As DPFPVerificationResult Set oVerificationResult = object.Verify( ByVal oVerificationFeatureSet As Object, ByVal oFingerprintTemplate As Object) Could you help me ?

... Class FormIFH2G Dim hasar As HasarArgentina.ImpresoraFiscalRG3561 = New HasarArgentina.ImpresoraFiscalRG3561 Private Sub ButtonRepZeta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRepZeta.Click Dim cierre As HasarArgentina.RespuestaCerrarJornadaFiscal Dim ...

... comandos básicos...copiándome del ejemplo que trae de VB6.0 VB Public Declare Function BiOpenMonPrinter Lib "EpsStmApiWrapper.dll" (ByVal nType As Integer, ByVal pName As String) As Long FWH DLL32 FUNCTION BiOpenMonPrinter(TYPE_PRINTER AS _INT, PRINTER_NAME AS STRING) AS _INT PASCAL ...

hello, Anyone who can "translate" this VB code please. Public Function BBANtoIBANint(ByVal ISOcountry As String, ByVal banknumber As String, ByVal Account As String) As String Dim xd As Object Set xd = CreateObject("msxml2.domdocument.4.0") xd.Load ...

... de converter esta função em VbScript para xHarbour, a minha necessidade é validar o usuário pelo Active Directory Function AuthenticateUser(ByVal strUser, ByVal strPW) Const ADS_SECURE_AUTHENTICATION = 1 Const ADS_SERVER_BIND = 512 strPath = "LDAP://RootDSE" Set LDAP = GetObject(strPath) ...

... Talvez alguien que lo traduzca a FWH. Con la Api HideCaret puedes ocultar el cursor: Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long El siguiente ejemplo oculta el cursor de Text1 al hacer clic sobre el Private Sub Text1_Click() HideCaret Text1.hwnd End ...

... is how to declare the DOCINFO type Private Declare Function StartDocPrinter Lib "winspool.drv" Alias _ "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _ pDocInfo As DOCINFO) As Long Is there any idea?

2 arguments first one date and the second boolean (default to set) Public Sub ShowDay( _ ByVal Day As Date, _ Optional ByVal Select As Boolean = True _ ) Parameters Day [in] Date\DteTime object specifying the date to show in the current view. Select [in] True to select\highlight ...

... the code that we need to port is: FUNCTION FreeImage_LoadDIBFromHandle( BYVAL hDC AS LONG, BYVAL fHandle AS DWORD ) AS LONG Its not difficult. We can work on that from next week on.

Buen dia compañeros del foro

Como puedo realizar esta instrucción en fwh ?

Declare Function OpenFpctrl Lib "tfhkaif.dll" (ByVal lpPortName As String) As Long

el resultado debe ser TRUE O FALSE

Desde ahora gracias por su apoyo.



Saludos,
Erick Almanza
FWH 8.6