Uwe:
I extracted this partial code , from my accounting program. I tried it before post it here , and it works for me. Maybe it will be of some help.
All necessary tables have been open at program startup .
All tables have the same structure.
Regards.
Code: Select all | Expand
//------------------------------
FUNCTION Transacc()
LOCAL oDlg, oLbx
LOCAL cTitulo:="TRANSACCIONES"
local cDocum := 'CD' //Por defecto sera comprobantes de diario
local cAlias
local oDoc1,oDoc2,oDoc3,oDoc4,oDoc8, oCol
dbselectarea("comprobd") //el primer boton es comprobantes de diario
if comprobd->(bof()) .or. comprobd->(eof())
comprobd->(dbgotop())
endif
cAlias:=Alias()
DEFINE DIALOG oDlg RESOURCE "Grabar2" TITLE cTitulo
dbselectar(cAlias)
oLbx := TXBrowse():New( oDlg )
oLbx:cAlias:=(cAlias)
oCol = oLbx:AddCol()
oCol:bStrData = { || DtoC((cAlias)->Fechemis) }
oCol:nDataStrAlign := 1
oCol:cHeader = "Fecha"
oCol:nWidth = 66
oCol = oLbx:AddCol()
oCol:bStrData = { || Transform( (cAlias)->NumDoc,"9999999999") }
oCol:cHeader = "Documento"
oCol:nWidth = 70
oCol:nFootStrAlign := 1
oCol = oLbx:AddCol()
oCol:bStrData = { || TRANSFORM((cAlias)->Debe,"@Z 99,999,999,999.99") }
oCol:nDataStrAlign := 1
oCol:cHeader = "Debitos"
oCol:nWidth = 100
oCol = oLbx:AddCol()
oCol:bStrData = { || TRANSFORM((cAlias)->Haber, "@Z 99,999,999,999.99") }
oCol:nDataStrAlign := 1
oCol:cHeader = "Creditos"
oCol:nWidth = 100
oLbx:CreateFromResource(181)
oLbx:SetRDD()
//Tipo de Documentos
REDEFINE BTNBMP oDoc1 ID 221 OF oDlg RESOURCE "cdiario" LEFT 2007 ACTION ( dbSelectArea("comprobd"), cAlias:=Alias(),oLbx:cAlias:=cAlias,oLbx:Refresh(), cDocum := 'CD' )
REDEFINE BTNBMP oDoc2 ID 222 OF oDlg RESOURCE "RCAJARJ2" LEFT 2007 ACTION ( dbSelectArea("RecibCaj"), cAlias:=Alias(),oLbx:cAlias:=cAlias,oLbx:Refresh(), cDocum := 'RJ' )
REDEFINE BTNBMP oDoc3 ID 223 OF oDlg RESOURCE "MINUTAS" LEFT 2007 ACTION ( dbSelectArea("Minutas"), cAlias:=Alias(),oLbx:cAlias:=cAlias,oLbx:Refresh(), cDocum := 'MI' )
REDEFINE BTNBMP oDoc4 ID 224 OF oDlg RESOURCE "CHEQUES" LEFT 2007 ACTION ( dbSelectArea("cheques"), cAlias:=Alias(),oLbx:cAlias:=cAlias,oLbx:Refresh(), cDocum := 'CH' )
REDEFINE BTNBMP oDoc8 ID 228 OF oDlg RESOURCE "SALIR" LEFT 2007 ACTION ( oDlg:End() )
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
