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...?