No muestra datos en el Browse con consulta de varios archivo

mod_harbour es un módulo para Apache que permite correr tus PRGs directamente en la web!!!
Post Reply
Adolfredo Martinez
Posts: 121
Joined: Fri Feb 15, 2019 1:37 pm
Location: Aracataca-Colombia

No muestra datos en el Browse con consulta de varios archivo

Post by Adolfredo Martinez »

Por aquí molestando, es que estoy practicando todos los ejemplos.

Tengo una consulta donde intervienen varios archivos y de ahí, escojo ciertas columnas para mostrar en un Browse sencillo, pero no muestra nada. Dice "No se encontraron registros coincidentes"

Este es el código:

Code: Select all | Expand

function main()
LOCAL o, oRs, hRes,oBrw,oo
local oCol
local aRows := {}
       
       
        oo := WDO():Rdbms( 'MYSQL', "127.0.0.1", "root", "123456", "indfundacion", 3307 )
       
        IF oo:lConnect
       
            ? 'Connected !', '<b>Versión RDBMS MySql', oo:Version()
           
        ELSE
       
            ? oo:cError
           
        ENDIF


   
    cSql = "SELECT IFNULL(contrib.CODIGO, ' ') AS CODIGO,IFNULL(contrib.razon, ' ') AS RAZON ,IFNULL(contrib.direcc, ' ') AS DIRECCION,"+;
                "IFNULL(contrib.nit, ' ') AS NIT,IFNULL(contrib.propieta, ' ') AS PROPIETARIO,IFNULL(contrib.tiporegime, ' ') AS REGIMEN,"+;
                "IFNULL(impretef.ANOGRAVA,'  ') AS VIGENCIA,IFNULL(impretef.FORMULARIO,' ') AS FORMULARIO,"+;
                "IFNULL(impretef.INGREBRU,0) AS INGRESOSBRUTO,IFNULL(impretef.IND_COM_13,0) AS INDUSTRIA,"+;
                "IFNULL(impretef.AVISO_14,0) AS AVISO,IFNULL(impretef.ITEM_20,0) AS BOMBERO,IFNULL(impretef.APAGAR_21,0) AS TOTAL_A_PAGAR,"+;
                "impretef.ENE AS ENERO,impretef.FEB AS FEB,impretef.MAR AS MAR,impretef.ABR AS ABR,impretef.MAY AS MAY,"+;
                "impretef.JUN AS JUNIO,impretef.JUL AS JULIO,impretef.AGO AS AGOSTO,impretef.SEP AS SEPTIMBRE,impretef.OCT AS OCTUBRE,"+;
                "impretef.NOV AS NOVIEMBRE,impretef.DIC AS DICIEMBRE,"+;  
                     "impretef.ANUAL AS ANUAL,"+;  
                "IFNULL(pagos.RECIBOS,0) AS RECIBOS,IFNULL(pagos.FECHA,'    /  /  ') AS FECHAMOVI,IFNULL(SUM(pagos.INDUSTRIA),0) AS INDUSTRIA,"+;
                "IFNULL(SUM(pagos.AVISOS),0) AS AVISO,IFNULL(SUM(pagos.BOMBERO),0) AS BOMBERO,"+;
                "IFNULL(SUM(pagos.SANCIONES),0) AS SANCIONES,IFNULL(SUM(pagos.ITEM_17),0) AS SANCION_EXTEMPOREANIDAD,"+;
                "IFNULL(SUM(pagos.MORA),0) AS MORA,IFNULL(SUM(pagos.MASANTICI),0) AS MAS_ANTICIPO,IFNULL(SUM(pagos.MENOSANTI),0) AS MENOS_ANTICIPO,"+;
                "IFNULL(SUM(pagos.AUTORETEN),0) AS AUTORETENCION, IFNULL(SUM(pagos.retencionica),0) AS RETENCION_TITULO_ICA,"+;
                "IFNULL(SUM(pagos.INDUSTRIA),0)+IFNULL(SUM(pagos.AVISOS),0)+ IFNULL(SUM(pagos.BOMBERO),0)+IFNULL(SUM(pagos.MORA),0) AS TOTALPAGADO "+;
                "FROM contrib  LEFT JOIN impretef ON contrib.codigo = impretef.codigo "+;
                "LEFT JOIN pagos ON impretef.codigo=pagos.codigo AND impretef.ANOGRAVA = pagos.VIGENCIA AND impretef.FORMULARIO = pagos.FORMULARIO "+;
                "WHERE "+;
                "contrib.codigo=impretef.codigo GROUP BY impretef.codigo,impretef.anograva,impretef.formulario ORDER BY contrib.codigo,impretef.anograva"

    IF !empty( hRes := oo:Query( cSql  ) )
        ? '<br><b>Total Select: </b>', oo:Count( hRes )
        aRows    := oo:FetchAll( hRes, .t. )
    endif
   
    DEFINE WEB oWeb TITLE 'Basic Browse' TABLES INIT
   
    DEFINE FORM o

        HTML o INLINE '<h3>Basic Browse</h3><hr>'
       
    INIT FORM o            

        DEFINE BROWSE oBrw ID 'ringo' HEIGHT 400 OF o

        ADD oCol TO oBrw ID 'CODIGO'               HEADER 'Codigo'
        ADD oCol TO oBrw ID 'RAZON'                 HEADER 'Razon Social'                  
        ADD oCol TO oBrw ID 'DIRECCION'           HEADER 'Direccion'                     
        ADD oCol TO oBrw ID 'TOTAL_A_PAGAR'  HEADER 'Total a Pagar'
        ADD oCol TO oBrw ID 'TOTALPAGADO'     HEADER 'Total Pagado'

        INIT BROWSE oBrw DATA aRows 

   
    END FORM o 
   
retu nil


Gracias por la atención prestada
User avatar
Carles
Posts: 1149
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona
Been thanked: 7 times
Contact:

Re: No muestra datos en el Browse con consulta de varios archivo

Post by Carles »

Hola,

Si nso quedamos con la parte de la consulta y haces un

? aRows

Te sale algo ?

Si cojes todo lo que tienes en cSql y lo ejecutas desde un admin de mysql como phpmysql o similar,, te sale algo ?

C.
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
Adolfredo Martinez
Posts: 121
Joined: Fri Feb 15, 2019 1:37 pm
Location: Aracataca-Colombia

Re: No muestra datos en el Browse con consulta de varios archivo

Post by Adolfredo Martinez »

Corro esa consulta en SQLyog y el resultado es el siguiente:
https://subir-imagen.com/i/RAGE9

Escojo las columnas que quiero mostrar y me muestra el siguiente mensaje: No se encontraron registros coincidentes
Y con ? aRows, me muestra una matriz as:
{{"CODIGO"=>"010032", "RAZON"=>"AGROPECUARIA FUNDACION", "DIRECCION"=>"C 3 8 03", "NIT"=>"3304320", "PROPIETARIO"=>"AGROPECUARIA FUNDACION", "REGIMEN"=>"COMUN", "VIGENCIA"=>"2019", "FORMULARIO"=>"0000000016", "INGRESOSBRUTO"=>"36305000", "INDUSTRIA"=>"254000", "AVISO"=>"38000", "BOMBERO"=>"18000", "TOTAL_A_PAGAR"=>"310000", "ENERO"=>"", "FEB"=>"", "MAR"=>"", "ABR"=>"", "MAY"=>"", "JUNIO"=>"", "JULIO"=>"", "AGOSTO"=>"", "SEPTIMBRE"=>"", "OCTUBRE"=>"", "NOVIEMBRE"=>"", "DICIEMBRE"=>"", "ANUAL"=>"", "RECIBOS"=>"3430", "FECHAMOVI"=>"2020-01-30", "SANCIONES"=>"0", "SANCION_EXTEMPOREANIDAD"=>"0", "MORA"=>"0", "MAS_ANTICIPO"=>"0", "MENOS_ANTICIPO"=>"0", "AUTORETENCION"=>"0", "RETENCION_TITULO_ICA"=>"0", "TOTALPAGADO"=>"310000"},..................}}
User avatar
Carles
Posts: 1149
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona
Been thanked: 7 times
Contact:

Re: No muestra datos en el Browse con consulta de varios archivo

Post by Carles »

Quien muestra l mensaje: No se encontraron registros coincidentes ?

Puedes ponerme un pantallazo?
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
Adolfredo Martinez
Posts: 121
Joined: Fri Feb 15, 2019 1:37 pm
Location: Aracataca-Colombia

Re: No muestra datos en el Browse con consulta de varios archivo

Post by Adolfredo Martinez »

Charly

El mensaje lo muestra el browse asi:
https://subir-imagen.com/i/RAosf
Adolfredo Martinez
Posts: 121
Joined: Fri Feb 15, 2019 1:37 pm
Location: Aracataca-Colombia

Re: No muestra datos en el Browse con consulta de varios archivo

Post by Adolfredo Martinez »

Charly
Cuando utilizo estas lineas.

Code: Select all | Expand

IF !empty( hRes := o:Query( cSql  ) )
       
            ? '<br><b>Total Select: </b>', o:Count( hRes )
       
            aData := o:FetchAll( hRes )

            o:View( o:DbStruct(),   aData )
       
ENDIF   
 

Me funciona mostrando todas la estructura osea todas las columnas asi:
https://subir-imagen.com/i/RA92n

Fue cuando decidí practicar un browse sencillo seleccionando unos cuantas columnas, pero no me funciona
User avatar
Carles
Posts: 1149
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona
Been thanked: 7 times
Contact:

Re: No muestra datos en el Browse con consulta de varios archivo

Post by Carles »

Prueba solo definiendo col CODIGO
y ves escalando columnas

Quizas haya algun contenido q hace el casque

Hemos de averiguar cual es :D
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
Adolfredo Martinez
Posts: 121
Joined: Fri Feb 15, 2019 1:37 pm
Location: Aracataca-Colombia

Re: No muestra datos en el Browse con consulta de varios archivo

Post by Adolfredo Martinez »

Charly

Nada, estuve probando de columna en columna
User avatar
Carles
Posts: 1149
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona
Been thanked: 7 times
Contact:

Re: No muestra datos en el Browse con consulta de varios archivo

Post by Carles »

Enviame el json en zip a carles9000 dot gmail.com que le hechare un vistazo
C.
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
Adolfredo Martinez
Posts: 121
Joined: Fri Feb 15, 2019 1:37 pm
Location: Aracataca-Colombia

Re: No muestra datos en el Browse con consulta de varios archivo

Post by Adolfredo Martinez »

Charly.

Ya te envié la información al correo.


Gracias por la atención prestada
Adolfredo Martinez
Posts: 121
Joined: Fri Feb 15, 2019 1:37 pm
Location: Aracataca-Colombia

Re: No muestra datos en el Browse Solucionado

Post by Adolfredo Martinez »

Hola Charly.

Ya lo solucione, el problema lo tenia en la tabla tengo unas columnas booleano ósea falso o verdadero, los meses de enero a Diciembre, como bit, al generar la consulta me generaba en esa consulta falso vacío y verdadero un rectángulo, lo cambie a Tinyint 0 falso 1 verdadero.


https://subir-imagen.com/i/RCI0m
Adolfredo Martinez
Posts: 121
Joined: Fri Feb 15, 2019 1:37 pm
Location: Aracataca-Colombia

Re: No muestra datos en el Browse con consulta de varios archivo

Post by Adolfredo Martinez »

Charly.

En fwh, no tengo este problema, la tabla los valores lógicos lo tengo creado como bit, cuando hago la consulta todo me sale bien, me muestra toda el browse bien y los checbox salen perfecto. En mod_harbour, me toco cambiar de logico a Tinyint 0 es falso y 1 es verdadero. La consulta los valores lógicos falso sale vacío y verdadero sale un rectángulo, fue por eso que me toco cambiar a Tinyint.
Post Reply