Code: Select all
SALTO := CHR(13)+CHR(10)
G_VISITOR := "AA,"+SALTO+"BB,"+SALTO+"CC,"+SALTO+"DD,"+SALTO+"EE,"+SALTO
MSGDEBUG( G_VISITOR )
MSGINFO( G_VISITOR )
G_VISITOR := STRTRAN( G_VISITOR, SALTO ,"")
MSGDEBUG( G_VISITOR )
MSGINFO( G_VISITOR )
]]>Code: Select all
SALTO := CHR(13)+CHR(10)
G_VISITOR := "AA,"+SALTO+"BB,"+SALTO+"CC,"+SALTO+"DD,"+SALTO+"EE,"+SALTO
MSGDEBUG( G_VISITOR )
MSGINFO( G_VISITOR )
G_VISITOR := STRTRAN( G_VISITOR, SALTO ,"")
MSGDEBUG( G_VISITOR )
MSGINFO( G_VISITOR )
]]>Code: Select all
....
0002763 IF IsControlDefined ('TB_DL_NAME' , 'Form_VW_or_DL' )
0002764 cF := GETPROPERTY('TB_DL_NAME' , 'Form_VW_or_DL' , 'VALUE')
0002765 ENDIF
....
Date:04/07/2025 Time: 09:18:21
Error: HMG 3.6.1 Stable (64 bits)
Control: Form_VW_or_DL Of TB_DL_NAME Not defined. Program Terminated
Called from GETPROPERTY(8514)
Called from VIEW_BLOB_PDF(2764)
...
Code: Select all
....
0002763 IF IsControlDefined ('TB_DL_NAME' , 'Form_VW_or_DL' )
0002764 cF := GETPROPERTY('TB_DL_NAME' , 'Form_VW_or_DL' , 'VALUE')
0002765 ENDIF
....
Date:04/07/2025 Time: 09:18:21
Error: HMG 3.6.1 Stable (64 bits)
Control: Form_VW_or_DL Of TB_DL_NAME Not defined. Program Terminated
Called from GETPROPERTY(8514)
Called from VIEW_BLOB_PDF(2764)
...
Code: Select all
cF := GETPROPERTY( 'Form_VW_or_DL' /* FormName */, 'TB_DL_NAME' /* ControlName */ , 'VALUE')
Code: Select all
cF := GETPROPERTY( 'Form_VW_or_DL' /* FormName */, 'TB_DL_NAME' /* ControlName */ , 'VALUE')
Code: Select all
Local cTempString := ''
Local oRow, oQuery
cQueryString := 'SELECT * FROM TuPedorraTabla"
oQuery := oServer:Query(cQueryString)
If oQuery:NetErr()
memowrit(cError, oQuery:Error() + ' --- ' + cQueryString)
EndIf
If oQuery:RecCount() > 0
For i := 1 to oQuery:RecCount() Step 1
oRow := oQuery:GetRow(i)
cTempString += oRow:FieldGet("Col1") + Chr(9) + oRow:FieldGet("Col2") + Chr(9) + oRow:FieldGet("ColZ") + hb_OsNewLine()
Next i
EndIf
memowrit("TuPedorraTabla.plana.txt",cTempString)
Code: Select all
Local cTempString := ''
Local oRow, oQuery
cQueryString := 'SELECT * FROM TuPedorraTabla"
oQuery := oServer:Query(cQueryString)
If oQuery:NetErr()
memowrit(cError, oQuery:Error() + ' --- ' + cQueryString)
EndIf
If oQuery:RecCount() > 0
For i := 1 to oQuery:RecCount() Step 1
oRow := oQuery:GetRow(i)
cTempString += oRow:FieldGet("Col1") + Chr(9) + oRow:FieldGet("Col2") + Chr(9) + oRow:FieldGet("ColZ") + hb_OsNewLine()
Next i
EndIf
memowrit("TuPedorraTabla.plana.txt",cTempString)