FoxPro/Visual FoxPro - Excel intercambia el dia por el mes

crutinaerroractual = ON("Error")

lhuboerror = .F.

ON ERROR LHUBOERROR = .T.

oexcel = CREATEOBJECT("Excel.Application")

ON Error &cRutinaErrorActual

IF lhuboerror

     nresp = MESSAGEBOX("¿Desea generar una lista sin formato?", 35,"Excel NO esta instalado en esta computadora.")

     IF nresp = 6

          generacsv()

     ENDIF

ELSE

     generahojaelectronica()

ENDIF

RETURN

ENDPROC

** Si no Existe excel Quiere mandar a un Archivo

PROCEDURE GeneraCSV

carchivo = GETFILE("Hoja excel:XLS",  ;

           "Archivo Excel",  ;

           "Grabar", 0)

IF EMPTY(carchivo)

     = MESSAGEBOX("Debe seleccionar un nombre de archivo.",64, "Error")

ELSE

     COPY TO (carchivo) TYPE XLS

     = MESSAGEBOX("El archivo fue grabado satisfactoriamente",0, "")

ENDIF

ENDPROC

**Cominesa a Generar la Hoja

PROCEDURE GeneraHojaElectronica

	WAIT WINDOW NOCLEAR NOWAIT  "Generando la hoja, espere un momento por favor."

	oexcel.workbooks.add()

	WITH oexcel.worksheets(1)

    *.- Cabecera ***********************************************************************

	.range("A1").value =  "Solo el centro de costo: " + ccentrocosto

    .range("A3").value = xempresa

    .range("A3:F3").select()

     WITH oexcel.selection

          .horizontalalignment = - 4108

          .mergecells = .T.

          .font.name = "Times New Roman"

          .font.bold = .T.

          .font.size = 20

     ENDWITH

     .range("A4").value = _TrMayor+" "+DToC(fFechaIni)+" AL "+DToC(fFechaFin)

     .range("A4:G4").select()

     WITH oexcel.selection

          .horizontalalignment = -4108

          .mergecells = .T.

          .font.name = "Times New Roman"

          .font.bold = .T.

          .font.size = 14

     ENDWITH

     .range("A6").value = "FECHA"

     .range("B6").value = "POLIZA"

     .range("C6").value = "EXPLICACION"

     .range("D6").value = "CARGOS"

     .range("E6").value = "ABONOS"

     .range("F6").value = "SALDO"

	*********FIN CABECERA

    .columns("A:A").columnwidth = 12

    .columns("B:B").columnwidth = 21

    .columns("C:C").columnwidth = 60

    .columns("D:D").columnwidth = 16

    .columns("F:F").columnwidth = 16

    .columns("G:G").columnwidth = 16

     .range("A6:F6").select()

     WITH oexcel.selection

          .borders(9).linestyle = 1

          .borders(9).weight = 4

          .wraptext = .T.

          .verticalalignment = -4107

     ENDWITH

     .range("F6:F6").select()

     WITH oexcel.selection

          .horizontalalignment = - 4152

     ENDWITH

	SELECT * FROM CuDiario;

	ORDER BY codigo_cta;

	GROUP BY codigo_cta;

	INTO CURSOR _CurCuenta

	j   = 8

	nCont = 1

	jj  = ''

	nSaltoPagina = 1

	SELECT _CurCuenta

	GOTO TOP

	DO WHILE !EOF()

		  cj = ALLTRIM(STR(j, 10,0))

		 .range("A" + cj).value = 'Cuenta'

		 .range("B" + cj).value =  _CurCuenta.codigo_cta+" "+_CurCuenta.Nombre_cta

		 *-Letra para Titulos

		 .range("A" + cj + ":F" + cj).select()

		  WITH oexcel.selection

        	  .font.name = "Times New Roman"

          	  .font.size = 11

          	  .font.bold = .T.

		  ENDWITH

           j = j + 2

			 *-Letra para Renglones

			 cj = ALLTRIM(STR(j, 10,0))

			 .range("A" + cj +":F" + cj).select()

			 WITH oexcel.selection

	        	  .font.name = "Calibri"

	          	  .font.size = 11

	          	  .font.bold = .F.

			 ENDWITH

			 ** Barre la tabla en el Excel

		     SELECT CuDiario

		     SET FILTER TO Codigo_cta = _CurCuenta.Codigo_cta

		     GOTO TOP

			 nSaldo = 0.00

			 nPaso = 0

		     SCAN ALL

				 cj = ALLTRIM(STR(j, 10,0))

				   *-Cuenta Contable

		          .range("A" + cj).value = Fecha_DPC

		          .range("B" + cj).value = NumeroDoc

		          .range("C" + cj).value = Alltrim(Alltrim(Nombre)+" "+Razon_Epl)

 				  .range("C" + cj).HorizontalAlignment = 6 		&&&---> Justifica

				  .range("C" + cj).VerticalAlignment = 4   		&&&---> Ajusta el contenido

			       IF Monto_DPc > 0.00

			          .range("D" + cj).value = Monto_Dpc

			       ENDIF

			       IF Monto_DPc < 0.00

		          	.range("E" + cj).value = Round(Monto_Dpc*-1,2)

		           ENDIF

		          .range("F" + cj).value = Inicial_Dpc + Monto_Dpc + nSaldo

				  nSaldo = Inicial_Dpc + Monto_Dpc + nSaldo

		          j = j + 1

		     ENDSCAN

			SELECT _CurCuenta

			SKIP

			j = j + 1

	ENDDO

	 j = j -1

	 i = j - 1

     cj = ALLTRIM(STR(j, 10, 0))

     ci = ALLTRIM(STR(i, 10, 0))

     .range("C" + cj).value =  "TOTALES"

     .range("D" + cj).value =  "=SUBTOTAL(9,D8:D" + ci + ")"

     .range("E" + cj).value =  "=SUBTOTAL(9,E8:E" + ci + ")"

     .range("F" + cj).value =  "=D" + cj + "-E"+cj

	 *-Pone Linea

     .range("D" + cj + ":F" + cj).select()

     WITH oexcel.selection

          .borders(8).linestyle = 1

          .borders(8).weight = 4

     ENDWITH

     .range("D8:F" + cj).select()

     oexcel.selection.numberformat =  "#,##0.00;[Red](#,##0.00);;@"

     WITH .pagesetup

          .printtitlerows = "$1:$5"

          .firstpagenumber = -4105

          .order = 1

          .zoom = .F.

          .fittopageswide = 1

          .fittopagestall = 30

     ENDWITH

     .range("A6").select()

ENDWITH

	oexcel.visible = .T.

	*-Desconectar

	RELEASE oexcel

	WAIT CLEAR

	USE IN _CurCuenta

	= MESSAGEBOX("La hoja fue generada satisfactoriamente.", 0, "")

ENDPROC

**