Gonazale....
como le va mi cuate.... un gran abrazo desde argentina... y te cuento que con ganas de conocer tu maravilloso pais.
Lo del AppendData, si pero pasa como me decias no toma los campos calculados. No me funciono. El echo de mandarlo a un archivo xml, es por que el user puede tener mas de una factura o comprobante guardado..
mmmmm Mi formato de las tablas en una factura , esta compuesto por tres archivos, Cabecera, detalle e impuestos.
cuando esta en inserccion y despues de cargar algunos datos con Ctrl+F ejecuto esto
Código Delphi
[-]procedure TFormCpbte_2.FreezarExecute(Sender: TObject); var i:integer; CDSCab,CDSDet:TClientDataSet; begin inherited; if not DirectoryExists(ExtractFilePath(ParamStr(0))+'facturas freezadas') then CreateDir(ExtractFilePath(ParamStr(0))+'facturas freezadas'); if Not(DatosVentas.CDSVentaCab.IsEmpty) Then begin if DatosVentas.CDSVentaDet.State in [dsInsert,dsEdit] then DatosVentas.CDSVentaDet.Post; if DatosVentas.CDSVentaCab.State in [dsInsert,dsEdit] then DatosVentas.CDSVentaCab.Post; CDSCab:=TClientDataSet.Create(Self); CDSCab.CloneCursor(DatosVentas.CDSVentaCab,True); // For i:=0 to CDSCab.FieldCount-1 do // begin // if CDSCab.Fields[i].Required Then // ShowMessage(CDSCab.Fields[i].FieldName+':'+ // CDSCab.Fields[i].AsString); // end; CDSDet:=TClientDataSet.Create(Self); CDSDet.CloneCursor(DatosVentas.CDSVentaDet,True); CDSCab.SaveToFile(ExtractFilePath(ParamStr(0))+'facturas freezadas\'+DatosVentas.CDSVentaCabID_FC.AsString+'-'+DatosVentas.CDSVentaCabCODIGO.AsString+'-'+DatosVentas.CDSVentaCabNOMBRE.AsString+'.XML'); CDSDet.SaveToFile(ExtractFilePath(ParamStr(0))+'facturas freezadas\'+DatosVentas.CDSVentaDetID_CABFAC.AsString+'.xm_'); // DatosVentas.CDSVentaCab.SaveToFile(ExtractFilePath(ParamStr(0))+'facturas freezadas\'+DatosVentas.CDSVentaCabID_FC.AsString+'-'+DatosVentas.CDSVentaCabCODIGO.AsString+'-'+DatosVentas.CDSVentaCabNOMBRE.AsString+'.XML'); // DatosVentas.CDSVentaDet.SaveToFile(ExtractFilePath(ParamStr(0))+'facturas freezadas\'+DatosVentas.CDSVentaDetID_CABFAC.AsString+'.xm_'); end else ShowMessage('No Hay datos para exportar....'); ShowMessage('Datos exportados....'); FreeAndNil(CDSCab); FreeAndNil(CDSDet); end;
no se si fui mas claro....
Luis Roldan
Mar del Plata
Argentina