Programa de gestión desde 0

[[José Luis Garcí]]

Una pequeña modificación del código

En FXPAF -Nuevo -

Código Delphi [-]
procedure TFXPAF.desgloceBlanco;
//------------------------------------------------------------------------------
//********************************************************[ DesgloceBalnco ]****
// Deja el registro con valores a vacio, negatiovo o 0 para evitar errores
// Tabla detalles
//------------------------------------------------------------------------------
begin
      DsDetalle.DataSet.FieldByName('CANTIDAD').value:=0;
      DsDetalle.DataSet.FieldByName('PRECIOUNIDAD').value:=0;
      DsDetalle.DataSet.FieldByName('IMPUESTO').value:=0;
      DsDetalle.DataSet.FieldByName('DESCUENTO').value:=0;
      DsDetalle.DataSet.FieldByName('COMISION').value:=0;
      DsDetalle.DataSet.FieldByName('PESOUNIDAD').value:=0;
      DsDetalle.DataSet.FieldByName('MODIFICADO').value:=0;
      DsDetalle.DataSet.FieldByName('SERVICIO').value:='N';
end;

y modificar

Código Delphi [-]

procedure TFXPAF.SBInsertarComentarioClick(Sender: TObject);
// ------------------------------------------------------------------------------
// ************************************************[ Insertar Comentario ]*******
// ------------------------------------------------------------------------------
var VarScadena: string;
begin
  VarScadena := InputBox('Comentario a insertar', 'Su comentario', '');
  if VarScadena <> '' then
  begin
    if CambiarEstado=0 then
    begin
      DsDetalle.DataSet.Insert;
      DsDetalle.DataSet.FieldByName('CODIGOARTICULO').value:='COM.';
      DsDetalle.DataSet.FieldByName('DESCRIPCIONARTICULO').value:=VarScadena;
      desgloceBlanco;
    end;
  end;
end;

y en UMuestraEntrega modificar

Código Delphi [-]
procedure TFEntrMuestra.SB_SalirClick(Sender: TObject);
//------------------------------------------------------------------------------
//****************************************************[ Salir y actualizar ]****
//------------------------------------------------------------------------------
var VarSTipoForm:string;
begin
    case RadioGroup1.ItemIndex of
       0:VarSTipoForm:='Ml.';
       1:VarSTipoForm:='L.';
       2:VarSTipoForm:='Gr.';
       3:VarSTipoForm:='Kg.';
       4:VarSTipoForm:='Ud.';
    end;
    if Edit1.Text<>'' then
    begin
       FXPAF.DsDetalle.dataset.insert;
       FXPAF.desgloceBlanco;
       FXPAF.DsDetalle.dataset.FieldByName('IDENTIFICADOR').Value:=FXPAF.DSPrincipal.DataSet.FieldByName('I  D').Value;
       FXPAF.DsDetalle.dataset.FieldByName('TIPODOCUMENTO').Value:=FXPAF.DSPrincipal.DataSet.FieldByName('T  IPODOCUMENTO').Value;
       FXPAF.DsDetalle.dataset.FieldByName('NUMERODOCUMENTO').Value:=FXPAF.DSPrincipal.DataSet.FieldByName(  'NUMERODOCUMENTO').Value;
       FXPAF.DsDetalle.dataset.FieldByName('SERIE').Value:=FXPAF.DSPrincipal.DataSet.FieldByName('SERIE').V  alue;
       FXPAF.DsDetalle.dataset.FieldByName('CODIGOARTICULO').Value:='MU';
       FXPAF.DsDetalle.dataset.FieldByName('DESCRIPCIONARTICULO').Value:='Muestra de '+Edit1.text+' ['+Edit2.Text+' '+VarSTipoForm+']';
       FXPAF.DsDetalle.dataset.FieldByName('CANTIDAD').Value:=SpinEdit1.Value;
       FXPAF.DSLoteDocumento.DataSet.Insert;  // Grabamos los datos del lote
       FXPAF.DSLoteDocumento.DataSet.FieldByName('TIPODOCUMENTO').Value:=FXPAF.DSPrincipal.DataSet.FieldByN  ame('TIPODOCUMENTO').Value;
       FXPAF.DSLoteDocumento.DataSet.FieldByName('NUMERODOCUMETO').Value:=FXPAF.DSPrincipal.DataSet.FieldBy  Name('NUMERODOCUMENTO').Value;
       FXPAF.DSLoteDocumento.DataSet.FieldByName('SERIE').Value:=FXPAF.DSPrincipal.DataSet.FieldByName('SER  IE').Value;
       FXPAF.DSLoteDocumento.DataSet.FieldByName('LOTE').Value:=Label5.Caption;
       FXPAF.DSLoteDocumento.DataSet.FieldByName('CANTIDAD').Value:=SpinEdit1.Value;
       FXPAF.DSLoteDocumento.DataSet.FieldByName('CODIGOARTICULO').Value:='MU';
       FXPAF.SetFocus;
       FEntrMuestra.Close;
    end else ShowMessage('Debe rellenar los datos primeramente, si lo que desea es salir, pulse en cancelar');
end;