Los campos que se muestra en blanco en TDBBrowse

[Cassiano de Oliveira]

Señores, en Harbour Console me enviaron a campos de funciones TBrowseDB() y
TBColumnNew() para las columnas como esta:
aCampo := {'LEFT(Nome,10)', 'Endereco', 'SoNumeros(Telefone)'}
aHeads := {'Nome/Razao', 'Endereço', 'Telefone'}
aMascara := { '@!', '@!', '@!' }
oBrw := TBrowseDB(nLin, nCol, nLinFim, nColFim)
For i:= 1 To Len(aCampos)
If ! ISNIL( aMascara )
bDataField := " { || TRANSFORM( " + aCampos + ", ' " +
aMascara + " ' ) }"
Else
bDataField := "{|| " + aCampos + " }"
EndIf
oColBrw := TbColumnNew( aHeads, &bDataField)
oBrw:AddColumn(oColBrw)
Next
En Xailer he creado un formulario con un TDBBrowse de la siguiente manera,
pero el campo que tiene la función, se muestra en blanco en el siguiente
ejemplo la única columna que aparece los datos es la columna del campo
Dirección.
aCampo := {'LEFT(Nome,10)', 'Endereco', 'SoNumeros(Telefone)'}
aHeads := {'Nome/Razao', 'Endereço', 'Telefone'}
aMascara := { '@!', '@!', '@!' }
cTitle := 'Pesquisa de Clientes'
cText := 'Clientes'
WITH OBJECT frmProcura()
:cTabela := 'Clientes'
:New() //--> Initialize
:cText := cTitle
:nWidth := 612
:nHeight := 446
:nBorderStyle := bsDIALOG
:oTexto:cText := cText
*-- Define Dataset do TDBrowse
:oBrwProcura:oDataSet := :oDBF
:oBrwProcura:Reset()
*-- Carrega colunas no TDBrowse
FOR i:=1 to Len(aCampos)
WITH OBJECT TDBBrwColumn():New( :oBrwProcura )
:cHeader := aHeads
:oDataField := aCampos //-->> aqui mando o campo, mas alguns
saem em branco.
:cPicture := aMascara
:Create()
END
NEXT
:ShowModal() == mrOK
END
¿Qué me estoy perdiendo?
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com

[Cassiano de Oliveira]

Gracias Ignacio,
Yo habí­a visto este ejemplo, puedo usar el AddCalcField, pero utilizando los
métodos de la DataSet.
Cuando se inserta un nuevo registro utilizando el AddNew (método) y luego
Update () para llevar los registros insertados, funciona perfectamente, pero
mi pregunta es si q tb no iba a funcionar con comandos nativa de tipo Alias>(DbAppend) y Alias-> (DBCOMMIT ()) para utilizar el código antiguo.
No estoy diciendo que esto es un error, sólo querí­a saber si la manipulación
de comandos nativos Harbour como se ha dicho que tendrí­a que hacer algún
procedimiento en Xailer y consecuentemente actualizar el AddCalcField.
Pero no hay problema, voy a tratar de hacer un pequeño ejemplo después de
terminar una migración. Me las arreglé para resolver de otra manera.
Normalmente me ocupo de lo que hizo y al final hago una copia de la tabla y
cargar el DataSet con AddCalcField, espero llegar a ser temporalmente
después de saber si usted tiene otra manera si cambio el caso.
un cordial saludo
"Cassiano de Oliveira" wrote in message news:53c9671c$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Señores, en Harbour Console me enviaron a campos de funciones TBrowseDB() y
TBColumnNew() para las columnas como esta:
aCampo := {'LEFT(Nome,10)', 'Endereco', 'SoNumeros(Telefone)'}
aHeads := {'Nome/Razao', 'Endereço', 'Telefone'}
aMascara := { '@!', '@!', '@!' }
oBrw := TBrowseDB(nLin, nCol, nLinFim, nColFim)
For i:= 1 To Len(aCampos)
If ! ISNIL( aMascara )
bDataField := " { || TRANSFORM( " + aCampos + ", ' " +
aMascara + " ' ) }"
Else
bDataField := "{|| " + aCampos + " }"
EndIf
oColBrw := TbColumnNew( aHeads, &bDataField)
oBrw:AddColumn(oColBrw)
Next
En Xailer he creado un formulario con un TDBBrowse de la siguiente manera,
pero el campo que tiene la función, se muestra en blanco en el siguiente
ejemplo la única columna que aparece los datos es la columna del campo
Dirección.
aCampo := {'LEFT(Nome,10)', 'Endereco', 'SoNumeros(Telefone)'}
aHeads := {'Nome/Razao', 'Endereço', 'Telefone'}
aMascara := { '@!', '@!', '@!' }
cTitle := 'Pesquisa de Clientes'
cText := 'Clientes'
WITH OBJECT frmProcura()
:cTabela := 'Clientes'
:New() //--> Initialize
:cText := cTitle
:nWidth := 612
:nHeight := 446
:nBorderStyle := bsDIALOG
:oTexto:cText := cText
*-- Define Dataset do TDBrowse
:oBrwProcura:oDataSet := :oDBF
:oBrwProcura:Reset()
*-- Carrega colunas no TDBrowse
FOR i:=1 to Len(aCampos)
WITH OBJECT TDBBrwColumn():New( :oBrwProcura )
:cHeader := aHeads
:oDataField := aCampos //-->> aqui mando o campo, mas alguns
saem em branco.
:cPicture := aMascara
:Create()
END
NEXT
:ShowModal() == mrOK
END
¿Qué me estoy perdiendo?
---
Este email está limpo de ví­rus e malwares porque a proteção do avast!
Antiví­rus está ativa.
http://www.avast.com
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com

[Cassiano de Oliveira]

Lo sentimos, esta entrada se ha publicado alguno de los anteriores.
Sigo a la duda.
"Cassiano de Oliveira" wrote in message news:53caed52$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Gracias Ignacio,
Yo habí­a visto este ejemplo, puedo usar el AddCalcField, pero utilizando los
métodos de la DataSet.
Cuando se inserta un nuevo registro utilizando el AddNew (método) y luego
Update () para llevar los registros insertados, funciona perfectamente, pero
mi pregunta es si q tb no iba a funcionar con comandos nativa de tipo
Alias>(DbAppend) y Alias-> (DBCOMMIT ()) para utilizar el código antiguo.
No estoy diciendo que esto es un error, sólo querí­a saber si la manipulación
de comandos nativos Harbour como se ha dicho que tendrí­a que hacer algún
procedimiento en Xailer y consecuentemente actualizar el AddCalcField.
Pero no hay problema, voy a tratar de hacer un pequeño ejemplo después de
terminar una migración. Me las arreglé para resolver de otra manera.
Normalmente me ocupo de lo que hizo y al final hago una copia de la tabla y
cargar el DataSet con AddCalcField, espero llegar a ser temporalmente
después de saber si usted tiene otra manera si cambio el caso.
un cordial saludo
"Cassiano de Oliveira" wrote in message news:53c9671c$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Señores, en Harbour Console me enviaron a campos de funciones TBrowseDB() y
TBColumnNew() para las columnas como esta:
aCampo := {'LEFT(Nome,10)', 'Endereco', 'SoNumeros(Telefone)'}
aHeads := {'Nome/Razao', 'Endereço', 'Telefone'}
aMascara := { '@!', '@!', '@!' }
oBrw := TBrowseDB(nLin, nCol, nLinFim, nColFim)
For i:= 1 To Len(aCampos)
If ! ISNIL( aMascara )
bDataField := " { || TRANSFORM( " + aCampos + ", ' " +
aMascara + " ' ) }"
Else
bDataField := "{|| " + aCampos + " }"
EndIf
oColBrw := TbColumnNew( aHeads, &bDataField)
oBrw:AddColumn(oColBrw)
Next
En Xailer he creado un formulario con un TDBBrowse de la siguiente manera,
pero el campo que tiene la función, se muestra en blanco en el siguiente
ejemplo la única columna que aparece los datos es la columna del campo
Dirección.
aCampo := {'LEFT(Nome,10)', 'Endereco', 'SoNumeros(Telefone)'}
aHeads := {'Nome/Razao', 'Endereço', 'Telefone'}
aMascara := { '@!', '@!', '@!' }
cTitle := 'Pesquisa de Clientes'
cText := 'Clientes'
WITH OBJECT frmProcura()
:cTabela := 'Clientes'
:New() //--> Initialize
:cText := cTitle
:nWidth := 612
:nHeight := 446
:nBorderStyle := bsDIALOG
:oTexto:cText := cText
*-- Define Dataset do TDBrowse
:oBrwProcura:oDataSet := :oDBF
:oBrwProcura:Reset()
*-- Carrega colunas no TDBrowse
FOR i:=1 to Len(aCampos)
WITH OBJECT TDBBrwColumn():New( :oBrwProcura )
:cHeader := aHeads
:oDataField := aCampos //-->> aqui mando o campo, mas alguns
saem em branco.
:cPicture := aMascara
:Create()
END
NEXT
:ShowModal() == mrOK
END
¿Qué me estoy perdiendo?
---
Este email está limpo de ví­rus e malwares porque a proteção do avast!
Antiví­rus está ativa.
http://www.avast.com
---
Este email está limpo de ví­rus e malwares porque a proteção do avast!
Antiví­rus está ativa.
http://www.avast.com
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com