Page 1 of 1

error ORDBAGNAME, con mysql tdolphin y xbrowse

Posted: Fri Aug 24, 2018 12:15 am
by kpidata
Estimados, por favor me ayudan con la siguiente situacion, tengo una tabla, con _, codigo y nombre, cuando genero la consulta me sale en el xbrowse
de forma correcta y me la ordena bien si hago click sobre la cabecera, no importa si es el campo codigo o el campo nombre, pero cuando hago un click sobre un registro, para modificarlo, o solo ver su contenido completo en otro dialogo, al volver al xbrowse, me sale este error.

Time from start: 0 hours 0 mins 19 secs
Error occurred at: 23/08/2018, 21:04:03
Error description: Error DBCMD/2001 Workarea not in use: ORDBAGNAME

este es parte del codigo

FUNCTION Menu_Marca_Extintores(cEmpresa,cUsuario)
Local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ]
LOCAL oGet,nIndex,aIdx:={}
LOCAL cBusca := Space(60)
Local cSeek:=""

cExt_Mar:=XServer:Query("SELECT cod_mar, nom_mar FROM ext_mar ORDER BY cod_mar")
Define Font oFont2 Name "Tahoma" Size 0,-11 Bold

DEFINE DIALOG oDlg ResName "BROW6BC" TITLE "TABLA MARCA EQUIPOS" //COLOR Rgb( 255, 0, 0 ), Rgb(185,220,255)

oBrw:=TxBrowse():New(oDlg)
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW // Con cursor de todo el renglón
oBrw:nColDividerStyle := LINESTYLE_RAISED
oBrw:nRowDividerStyle := LINESTYLE_RAISED
oBrw:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(128,255,128) } } // para barra de linea selecc cuando el control tiene el foco
oBrw:lColDividerComplete := (.t.) // (.T.) Mantiene siempre llena la pantalla
oBrw:nHeaderHeight := 35 // Altura de los encabezados
oBrw:nRowHeight := 25 // Altura del renglón
oBrw:nHeaderLines := 3 // Número de líneas de encabezados
oBrw:nDataLines := 2 // Número de líneas de detalle
oBrw:nFooterHeight := 20 // Altura del footer
oBrw:nFooterLines := 2 // Número de líneas en el footer
oBrw:lFooter := (.T.) // Sí queremos línea de footer
oBrw:lHScroll := (.T.) // Quitamos el scroll horizontal
oBrw:bClrHeader := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
oBrw:l2007:=.T.
oBrw:lAutoSort:=.T.
oBrw:bLDblClick := {|| Add_Marca_Extintores(.F.,oBrw, cExt_Mar), cExt_Mar:Refresh() }
oBrw:oFont := oFont2
oBrw:SetDolphin(cExt_Mar,.T.,.T.)

oBrw:aCols[1]:cHeader := "Código"
oBrw:aCols[1]:bStrData := { || cExt_Mar:cod_mar }
oBrw:aCols[1]:nHeadStrAlign := AL_CENTER
oBrw:aCols[1]:nDataStrAlign := AL_LEFT //LEFT
oBrw:aCols[1]:nWidth := 100
oBrw:aCols[1]:cSortOrder := "cod_mar"
oBrw:aCols[1]:bLClickHeader := {|| oBrw:GoTop() }
oBrw:aCols[1]:cToolTip :="Haga doble Click para ordenar por código"

oBrw:aCols[2]:cHeader := "Detalle"
oBrw:aCols[2]:bStrData := { || cExt_Mar:nom_mar }
oBrw:aCols[2]:nHeadStrAlign := AL_CENTER
oBrw:aCols[2]:nDataStrAlign := AL_LEFT //LEFT
oBrw:aCols[2]:nWidth := 300
oBrw:aCols[2]:cSortOrder := "nom_mar"
oBrw:aCols[2]:bLClickHeader := {|| oBrw:GoTop() }
oBrw:aCols[2]:cToolTip :="Haga doble Click para ordenar por Detalle"

ACTIVATE DIALOG oDlg CENTERED
oFont2:End()
cExt_Mar:End()
Return NIl

alguien me puede indicar que puede ser, la tabla tiene como clave primaria el codigo.

Atte.,

Re: error ORDBAGNAME, con mysql tdolphin y xbrowse

Posted: Fri Aug 24, 2018 12:18 am
by kpidata
Disculpen me falto agregar algo, la función

FUNCTION Add_Marca_Extintores(lAppend,oBrw, cExt_Mar)
*-----------------------------------------------
LOCAL oGets:= Array( 30 )
Local oBtns:= Array( 2 )
Local oBmp,oDlg1,oFont1
LOCAL lAceptar := .F.
Local aCampos,aValues,aWhere
Local cCod_Mar :=Space(04), cNom_Mar :=Space(30)

If lAppend
cCod_Mar := Space(04)
cNom_Mar := Space(30)
Else
cCod_Mar := cExt_Mar:cod_mar
cNom_Mar := cExt_Mar:nom_mar
Endif

Define Font oFont1 Name "Tahoma" Size 0,-11 Bold
DEFINE DIALOG oDlg1 RESOURCE "Ingreso_01" TITLE "Ingreso Marca"

REDEFINE SAY oGets[1] PROMPT "Codigo" ID 301 OF oDlg1 FONT oFont1
REDEFINE SAY oGets[2] PROMPT "Detalle" ID 302 OF oDlg1 FONT oFont1

REDEFINE GET cCod_Mar PICTURE "!!!!" ID 101 OF oDlg1 FONT oFont1 UPDATE When lAppend VALID CodMarca_Extintores(cCod_Mar,oDlg1) COLOR Rgb( 064, 0, 0 ), Rgb(255,255,200)
REDEFINE GET cNom_Mar PICTURE REPL("!",30) ID 102 OF oDlg1 FONT oFont1 UPDATE COLOR Rgb( 064, 0, 0 ), Rgb(255,255,200)

REDEFINE BUTTONBMP oBtns[1] ID 201 OF oDlg1 PROMPT "&Grabar" When !Empty(cNom_Mar);
ACTION ( lAceptar := .T., oDlg1:End() ) BITMAP "Grabar" TEXTRIGHT

REDEFINE BUTTONBMP oBtns[2] ID 202 OF oDlg1 PROMPT "&Salir";
ACTION ( oDlg1:End() ) BITMAP "Cancelar" TEXTRIGHT cancel

ACTIVATE DIALOG oDlg1 CENTERED

IF lAceptar == .T.
IF lAppend == .T.
aCampos:={ 'cod_mar', 'nom_mar' }
aValues:={ cCod_Mar , cNom_Mar }
xServer:Insert("ext_mar", aCampos, aValues )
Else
aCampos:={ 'nom_mar' }
aValues:={ cNom_Mar }
aWhere := "cod_mar='"+AllTrim(cCod_Mar)+"'"
xServer: Update( "ext_mar", aCampos, aValues, aWhere )
Endif
Endif
SetDolphin( oBrw, cExt_Mar,.f. )
cExt_Mar:Refresh()
oBrw:SetFocus()
oBrw:Refresh()
RETURN NIL