Documentacion proveedores

Compras/Compras.aspx.vb

@@ -7210,7 +7210,19 @@ Partial Class Compras_Compras
                                                                 Next
                                                                 importeMovimiento = 0
 
-                                                            End If
+                                                            End If
+
+
+                                                            'Case 205
+
+                                                            '    If TxtTotal.Text.ToDecimal = 0 And DdlTipoComprobante.SelectedValue = "Fac" Then
+                                                            '        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, Row("IdCtaContable").ToString.ToEntero, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=True) Then
+                                                            '            ErrorPrepoliza = True
+                                                            '            Exit For
+                                                            '        End If
+                                                            '    End If
+
+
                                                     End Select
 
                                                     If ErrorPrepoliza Then