Lo que me llama la atención es que se produce cuando agrego el picture a _ del xbrowse, si no defino los pictures no me da error.
A continuación el código:
Code: Select all
DEFINE DIALOG oDlgF2 RESOURCE "LISTAREGIS_P2" ;
TITLE "CONSULTA DE FORMULARIOS "
REDEFINE SAY oTitulo VAR cTitulo ID 4001 OF oDlgF2 FONT oF20 COLOR CLR_HRED
REDEFINE SAY oTitulo2 VAR cTitulo2 ID 4011 OF oDlgF2 FONT oF16 COLOR CLR_HRED
REDEFINE DBCOMBO oGProdu VAR nGProdu ID 4012 OF oDlgF2 ;
ALIAS oQryGPr ITEMFIELD "detalle" LISTFIELD "detalle" ;
UPDATE
REDEFINE GET oFecha1 VAR dFecha1 ID 4004 OF oDlgF2 FONT oF12 COLOR CLR_HRED
REDEFINE GET oFecha2 VAR dFecha2 ID 4006 OF oDlgF2 FONT oF12 COLOR CLR_HRED
REDEFINE RADIO oTConsul VAR nTConsul ID 4007,4008,4009 OF oDlgF2 UPDATE
REDEFINE BTNBMP oBtnC ID 4010 OF oDlgF2 MESSAGE "Actualiza informe..." 2007 ;
FILE "./Bmp/BuscarSM.bmp" PROMPT "Actualizar" LEFT ;
ACTION BusPRegistros(8)
REDEFINE XBROWSE oBrw ALIAS oQryRegT FIELDS ;
If(oQryRegT:estado >0,"Cerrada", "Pendiente"), ;
DtoC(oQryRegT:fecha_reg), ;
DtoC(oQryRegT:fecha_cierre), ;
oQryRegT:nro_regis, ;
oQryRegT:detalle, ;
oQryRegT:canti_produ, ;
oQryRegT:canti_tonelada, ;
oQryRegT:nom_productor, ;
oQryRegT:nom_transpor, ;
oQryRegT:nom_aserra ;
HEADERS "Estado","Fecha Reg.", "Fecha Cierre", "Nº Registro", ;
"Producto", "Cantidad", "Toneladas", ;
"Productor", "Transportista", "Aserradero/Comerciante" ;
COLSIZES 80,80,80,80,150,80,80,200,200,200 ; //PICTURE "@!",,,,"@!","@E 999,999.99","@E 999,999.99","@!","@!","@!" ;
AUTOSORT LINES CELL ;
ID 4002 OF oDlgF2
oBrw:nColDividerStyle := 2
/*
WITH OBJECT oBrw
:lSeekBar := .T.
:bClrEdits := { || { CLR_HRED, CLR_YELLOW } }
:lAutoSort := .T.
:l2013 := .T.
// :CreateFromCode()
END
*/
REDEFINE BTNBMP oBtnA ID 250 OF oDlgF2 MESSAGE "Imprime Informe..." 2007 ;
FILE "./Bmp/Impresora.BMP" PROMPT "Imprimir" LEFT ;
ACTION (ReportePR2(oQryRegT, dFecha1, dFecha2, oQryPr:detalle),oDlgF2:End())
REDEFINE BTNBMP oBtnA ID 4013 OF oDlgF2 MESSAGE "Generar Excel..." 2007 ;
FILE "./Bmp/Excel.BMP" PROMPT "Excel" LEFT ;
ACTION oBrw:ToExcel()
REDEFINE BTNBMP oBtnC ID 260 OF oDlgF2 MESSAGE "Cancela el Movimiento..." 2007 ;
FILE "./Bmp/Cancelar.BMP" PROMPT "Cancelar" LEFT ;
ACTION oDlgF2:End()
ACTIVATE DIALOG oDlgF2 CENTERED