Ver Mensaje Individual
  #1  
Antiguo 05-02-2008
Avatar de BlueSteel
[BlueSteel] BlueSteel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Concepción - Chile
Posts: 2.310
Reputación: 23
BlueSteel Va por buen camino
Exportando a Excel con DBGridExcelExport

Hola Amigos

Tanto tiempo...entre vacaciones y tanto trabajo atrasado.. no había tenido tiempo de ingresar a postear....

ahora tengo un tiempito y bueno... me apareció un problemilla....estoy exportando a Excel con el componente DBGridExcelExport de la JV... y tengo unas consultas...

Tengo un DBGrid que posee un campo que tiene valor 0, 1, 2, 3 y 4... y quiero que aparesca CONTADO, CRT - 15 DIAS, CRT - 30 DIAS, CRT - 45 DIAS Y CRT - 60 DIAS respectivamente...

eso lo hice en el Query.. en el OnGetText con el sgte codigo
Código Delphi [-]
procedure TDatos.IBQ_ExportarFac_Forma_PagoGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
    Case IBQ_ExportarFac_Forma_Pago.AsInteger of
         0 : Text := 'CONTADO';
         1 : Text := 'CRT - 15 DIAS';
         2 : Text := 'CRT - 30 DIAS';
         3 : Text := 'CRT - 45 DIAS';
         4 : Text := 'CRT - 60 DIAS';
    End;
end;

y me funcion super bien... en el DBGrid me muestra el resultado sin problemas

para exportar a Excel utilizo el sgte proceso

Código Delphi [-]
     SaveDialog.Title := 'Exportar a Microsoft Excel...';
     SaveDialog.Filter := 'Microsoft Excel 97-2003 [*.xls]|*.xls|Microsoft Excel 2007 [*.xlsx]|*.xlsx|Todos los Archivos [*.*]|*.*';
     SaveDialog.FilterIndex := 1;
     SaveDialog.DefaultExt := '*.xls';
     if SaveDialog.Execute Then
        begin
        DBGridExcelExport.FileName := SaveDialog.FileName;
        DBGridExcelExport.Grid := Ventas_Mes;
        DBGridExcelExport.ExportGrid;
    end;

el problema es que en vez de mostrar la columna con los datos CONTADO, CRT - 15 DIAS, CRT - 30 DIAS, CRT - 45 DIAS Y CRT - 60 DIAS, me los muestra con 0, 1 , 2 y 3...

ahh.. se me olvidaba.. lo mismo pasa con otra columna que por defecto tiene E o N, y realizo el proceso para que diga EMITIDA o NULA

Código Delphi [-]
procedure TDatos.IBStringField2GetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
     If IBQ_Exportar['Fac_Estado'] = 'E' Then Text:= 'EMITIDA' ELSE Text:= 'NULA';
end;
que podrá ser ?... el DBGrid lo muestra bien.. el Excel no...?
__________________
BlueSteel

Última edición por BlueSteel fecha: 05-02-2008 a las 23:28:22.
Responder Con Cita