cn.BeginTrans;
cm := TADOCommand.Create(nil);
cm.Connection := cn;
cm.CommandText := ' UPDATE TIngresoDetalle SET '+
' Tipo='+ QuotedStr(Tipo)+ ','+
' Cantidad='+ Cantidad+ ','+
' Monto='+ Monto+
' WHERE FechaLlegada=CDate('+QuotedStr(FechaLlegada)+') AND SerieF='+ QuotedStr(SerieF)+' AND NroFactura='+ QuotedStr(NroFactura)+' AND SerieG='+ QuotedStr(SerieG)+' AND NroGuia='+ QuotedStr(NroGuia)+'AND IDTipo='+ QuotedStr(IDTipo);
cm.Execute;
cn.CommitTrans;