Validaciones al agregar cliente,correcion de prepoliza al generar movimiento de remision,emision con codigo objeto impuesto 04

Compras/PopUpVerFactura.aspx.vb

@@ -2949,6 +2949,10 @@ Partial Class PopUpVerFactura
                         End If
                     End If
 
+                    If Vta.Version.ToEntero() = 4 AndAlso dr1("CodigoObjetoImpuesto").ToString() = "02" AndAlso Now.Date >= New DateTime(2022, 11, 1) AndAlso dr1("Descuento").ToString().ToDecimal().RoundSQL(2) = dr1("Total").ToString().ToDecimal().RoundSQL(2) Then
+                        dr1("CodigoObjetoImpuesto") = "04"
+                    End If
+
                 Next
 
                 Vta.DtDesgloseImpuestos = TmpDTImpuestosIVAIEPS.FiltraParametros("", Orderby:="Orden ASC")