From e989ef54ae15b54e4110ad21c7d44ecd163dfc71 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Tue, 7 Jan 2020 12:23:58 -0700
Subject: [PATCH] Revert "tres columnas opcionales para opcion de factura
 cliente"

This reverts commit d0c2f697ff824fca53978e03b3736a646f494ebc.
---
 General/SaldosIniciales.aspx.vb | 35 ++++++++++++---------------------
 1 file changed, 13 insertions(+), 22 deletions(-)

diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index c16ccc7be..930cd697c 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -296,17 +296,17 @@ Partial Class General_SaldosIniciales
                     Exit Sub
                 End If
 
-                'If RblFormato.SelectedValue = "4" Then
-                '    If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
-                '        Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
-                '    End If
+                If RblFormato.SelectedValue = "4" Then
+                    If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
+                        Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError)
+                        Exit Sub
+                    End If
 
-                '    If Not dt.Columns(16).ColumnName = "Amort.Ant" Then
-                '        Alert("El nombre de la diescisieteava columna debe ser 'Amort.Ant'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
-                '    End If
-                'End If
+                    If Not dt.Columns(16).ColumnName = "Amort.Ant" Then
+                        Alert("El nombre de la diescisieteava columna debe ser 'Amort.Ant'. Favor de corregirlo", TipoMensaje.MsgError)
+                        Exit Sub
+                    End If
+                End If
 
 
             ElseIf RblFormato.SelectedValue = "5" Then
@@ -1356,8 +1356,8 @@ Partial Class General_SaldosIniciales
                     Dim Folio As Integer = Row("Folio").ToString.ToEntero
                     Dim Fecha As Date = Row("Fecha").ToString.ToDate
                     Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString.ToDate
-                    Dim ImpuestoLocal As Double = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDouble, 0)
-                    Dim Amortizacion As Double = If(dt.Columns.Contains("Amort.Ant"), Row("Amort.Ant").ToString.ToDouble, 0)
+                    Dim ImpuestoLocal As Double = Row("ImpuestoLocal").ToString.ToDouble
+                    Dim Amortizacion As Double = Row("Amort.Ant").ToString.ToDouble
                     Dim SubTotal As Decimal = Row("SubTotal").ToString.ToDecimal
                     Dim IVA As Decimal = Row("IVA").ToString.ToDecimal
                     Dim Total As Decimal = Row("Total").ToString.ToDecimal
@@ -1372,8 +1372,7 @@ Partial Class General_SaldosIniciales
                     Dim CveVendedor As Integer = 0
                     Dim IEPS As Decimal = 0 'Row("IEPS").ToString.ToDecimal
                     Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero
-                    Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDecimal, 0)
-                    Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")
+                    Dim ImpuestosLocales As Decimal = Row("ImpuestoLocal").ToString.ToDecimal
 
                     GuardaLog(Sucursal + "-" + Row("Folio").ToString)
                     'Temporalmente SE BORRARA
@@ -1431,14 +1430,6 @@ Partial Class General_SaldosIniciales
                                 ErrorVentas = True
                                 Exit For
                             End If
-
-                            If FolioFiscal IsNot "" Then
-                                If Not ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", FechaVencimiento, CveVenta, CvePAC:=1) Then
-                                    ErrorVentas = True
-                                    Exit For
-                                End If
-                            End If
-
                             Dim ConceptoContable As Integer = 1
                             Dim ConceptoContablePago As Integer = 2
                             If TipoDocto = "Egs" Then