exportar a excel lineas adic. que no aparecen en el xbrowse

Board index FiveWin para Harbour/xHarbour exportar a excel lineas adic. que no aparecen en el xbrowse

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

exportar a excel lineas adic. que no aparecen en el xbrowse
Posted: Wed Jun 23, 2021 05:41 PM

Hola busco hacer eso de arriba.
Al excel que va a mostrar los resultados desde xbrowse, se le puede poner encabezados, subtitulos o fecha de exp. que no estuvieron definidas cuando arme el xbrowse?

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: exportar a excel lineas adic. que no aparecen en el xbrowse
Posted: Thu Jun 24, 2021 02:43 PM

oSheet := oBrw:ToExcel()

Now, use the oSheet object and write in that Sheet, whatever you want to add extra.

Regards

G. N. Rao.

Hyderabad, India

artu01

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

Re: exportar a excel lineas adic. que no aparecen en el xbrowse
Posted: Thu Jun 24, 2021 09:21 PM

Thanks Mr. Rao

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

artu01

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

Re: exportar a excel lineas adic. que no aparecen en el xbrowse
Posted: Tue Dec 07, 2021 10:13 PM

Exporto a excel con xbrowse sin problema
El problema es cuando quiero agregarle mas cosas a esa hoja me aparecen errores como por ejemplo:

Code (fw): Select all Collapse

function main()
   DEFINE DIALOG oDlg SIZE 800,500 PIXEL

   @ 0,0 XBROWSE oBrw OF oDlg ;
         DATASOURCE "DATA" ;
         COLUMNS "material", "descrip", "mes01","mes02","mes03","mes04", "mes05","mes06","mes07","mes08","mes09", "mes10", "mes11", "mes12";
         HEADERS "Material", "Descripcion","Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre"
 
   oBrw:CreateFromCode()
   oDlg:oClient := oBrw
   
   ACTIVATE DIALOG oDlg CENTERED ;
   ON INIT (DlgMenu1(oDlg,oBrw))  
   
   data->(dbCloseArea())
return nil

Function DlgMenu1(oDlg,oBrw)
  local oMenu, oBar
 
  MENU oMenu 2007                                          
       MENUITEM "&Excel"  ACTION ( CargaEx(oBrw) )
       MENUITEM "&Salir"  ACTION oDlg:End()
  ENDMENU
  oDlg:SetMenu(oMenu)
 
  return nil

static function cargaex(obrw)
    oExcel:=oBrw:toexcel()
    oExcel:Rows(1):Insert()
    nLin:=1  
return nil

Consigo este error

Code (fw): Select all Collapse

static function cargaex(obrw)
    oExcel:=oBrw:toexcel()
    //oExcel:Rows(1):Insert()
    nLin:=1  
    oExcel:Columns("F:L"):delete(-4159)
return Nil

Aqui otro error

He intentado de otra forma pero igual consigo error al exportar a excel

Code (fw): Select all Collapse

      oExcel:= TOleAuto():New( "Excel.Application" )
      oExcel:WorkBooks:Add()
      oExcel:Visible := .T.
      oSheet:=oExcel:ActiveSheet()
      nFilM :=2 
      oRs:movefirst()
      Do While !oRs:Eof()
        cDesMat:= oRs:Fields("descrip"):Value()
        oSheet:Cells( nFilM,  1  ):Value := cDesMat
        nFilm++
        Do While !oRs:Eof() .and. cDesMat=oRs:Fields("descrip"):Value()
          nMes:=oRs:Fields("mes"):Value()
          Do While !oRs:Eof() .and. cDesMat=oRs:Fields("descrip"):Value() .and. nMes=oRs:Fields("mes"):Value()
            cMovi:=oRs:Fields("movim"):Value()
            nSumPesI:=0
            Do While !oRs:Eof() .and. cDesMat=oRs:Fields("descrip"):Value() .and. nMes=oRs:Fields("mes"):Value() ;
             .and. cMovi=oRs:Fields("movim"):Value() 
                nSumPesI+=oRs:Fields("pnet"):Value()
              oRs:movenext()
            EndDo  
            do case
              case cMovi='A'
                oSheet:Cells( nFilM,  2 ):NumberFormat := "##.##0,00"
                oSheet:Cells( nFilM,  2  ):Value := nSumPesI
              case cMovi='I'
                oSheet:Cells( (nFilM+1),  (nMes+1) ):NumberFormat := "##.##0,00"
                oSheet:Cells( (nFilM+1),  (nMes+1)  ):Value := nSumPesI
              case cMovi='S'  
                  oSheet:Cells( (nFilM+2),  (nMes+1) ):NumberFormat := "##.##0,00"
                oSheet:Cells( (nFilM+2),  (nMes+1)  ):Value := -1*nSumPesI              
            endcase           
          EndDo         
        EndDo
        nFilM+=4
      EndDo

Lo raro es que hay veces que si exporta a excel sin errores pero vuelvo intentar a exportar lo mismo y sale los errores de arriba. Uds. pueden trabajar con excel desde fw sin problema?

Utilizo fw 17.12, harbour 3.2.0dev (r1703231115) y Borland bcc7

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

artu01

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

Re: exportar a excel lineas adic. que no aparecen en el xbrowse
Posted: Wed Dec 08, 2021 06:44 PM

Mr. Rao
He notado que si solo dejo la línea obrw:toexcel() lo puedo hacer varias veces y no hay problema pero si le agrego una línea por ejemplo: oExcel:Rows(1):Insert() la primera vez que exportó no sale error pero si hago una segunda vez con la hoja abierta de la primera exportación me salen los errores. Porqué pasa eso?
Espero me indique que esta mal, gracias

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

FiveTech Support Forums

Continue the discussion