Una pequeña modificación del código
En FXPAF -Nuevo -
Código Delphi
[-]procedure TFXPAF.desgloceBlanco;
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);
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);
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; 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;