Saldos Iniciales, Anticipo Proveedor, Cliente , RepAnexo Alineación filtros

Contabilidad2/RepAnexoCatalogoCC.aspx

@@ -48,16 +48,17 @@
                     <div class="portlet-title portlet-filterT smalltitle magindate">
                         <div class="tools">
                             <asp:Button ID="BtnCargaAsignados" runat="server" Text="Consultar" class="btn btn-default" />
+                            <a href="javascript:;" class="expand"></a>
                         </div>
                         <div class="titlefiltros caption ">
                             <ul class="list-inline" style="font-size: 12px;">
-                                <li>Ejercicio:              
+                                <li>              
-                                   
+                                   <label style="width:55px">Ejercicio:</label> 
                                     <asp:DropDownList ID="DdlEjercicio" runat="server" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" Style="width: 80px !important;" ValidationGroup="GrpCargaAsignados"></asp:DropDownList>
                                 </li>
                                 <li>
                                     <asp:Label runat="server" ID="LblSubProyecto"></asp:Label>
-                                    <asp:DropDownList ID="DdlSubProyecto" Width="230px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlSubProyecto" Width="200px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me"></asp:DropDownList>
                                 </li>
 
                                 <li>
@@ -80,20 +81,12 @@
 
                                 </li>
 
-                                <li>Divisor:              
-                                   
-                                    <asp:DropDownList ID="DdlDivisor" Width="100px" runat="server" CssClass="form-control input-sm select2me">
-                                        <asp:ListItem Text="1" Value="1"></asp:ListItem>
-                                        <asp:ListItem Text="1,000" Value="1000" Selected="True"></asp:ListItem>
-                                        <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
-                                    </asp:DropDownList>
-                                </li>
 
                                     <li>Cuenta:
                             </li>
                             <li>
                                 <asp:DropDownList ID="DdlCuentas" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" 
-                                    Enabled="true" Width="300px">
+                                    Enabled="true" Width="250px">
                                     <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>
                                 <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
@@ -106,6 +99,21 @@
                             </ul>
                         </div>
                     </div>
+                     <div class="portlet-body" style="display: none">
+
+                       
+                        <ul class="list-inline" style="font-size: 12px;">
+                             
+                                <li> <label style="width:55px">Divisor:</label> 
+                                   
+                                    <asp:DropDownList ID="DdlDivisor" Width="80px" runat="server" CssClass="form-control input-sm select2me">
+                                        <asp:ListItem Text="1" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="1,000" Value="1000" Selected="True"></asp:ListItem>
+                                        <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
+                                    </asp:DropDownList>
+                                </li>
+                         </ul>
+                     </div>
                 </div>
             </asp:Panel>
         </ContentTemplate>

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -2270,6 +2270,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
             Dim IndiceInicio As Integer = 1
             Dim IndiceMax As Integer = 1 + CountDinamico
+
             For IndiceInicio = 1 To IndiceMax Step 2
                 Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
                 Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal

General/SaldosIniciales.aspx

@@ -38,9 +38,11 @@
                     <div class="portlet-body rowpadding">
                         <asp:RadioButtonList runat="server" ID="RblFormato">
                             <asp:ListItem Value="1" Text="Proveedores" Selected="True"></asp:ListItem>
-                            <asp:ListItem Value="2" Text="Clientes"></asp:ListItem>
                             <asp:ListItem Value="3" Text="Factura - Proveedor"></asp:ListItem>
+                            <asp:ListItem Value="13" Text="Anticipo Proveedores"></asp:ListItem>
+                            <asp:ListItem Value="2" Text="Clientes"></asp:ListItem>
                             <asp:ListItem Value="4" Text="Factura - Cliente"></asp:ListItem>
+                            <asp:ListItem Value="14" Text="Anticipo Clientes"></asp:ListItem>                            
                             <asp:ListItem Value="5" Text="Productos y Sevicios" ></asp:ListItem>
                             <asp:ListItem Value="6" Text="RH - Personal"></asp:ListItem>
                             <%--<asp:ListItem Value="7" Text="AF - Activos Fijos" Enabled="false"></asp:ListItem>--%>
@@ -50,6 +52,8 @@
                             <asp:ListItem Value="10" Text="Cont - Saldos Iniciales Cuentas" Enabled="True"></asp:ListItem>
                             <asp:ListItem Value="11" Text="ContaSIG - Saldos Iniciales Cuentas" Enabled="True"></asp:ListItem>
                             <asp:ListItem Value="12" Text="Almacen" Enabled="True"></asp:ListItem>
+                            <asp:ListItem Value="15" Text="Bancos" Enabled="True"></asp:ListItem>
+                            <asp:ListItem Value="16" Text="Clasificaciones" Enabled="True"></asp:ListItem>
                         </asp:RadioButtonList>
                         <div runat="server" id="divAlmacen">
                             <div class="row">

General/SaldosIniciales.aspx.vb

@@ -516,6 +516,119 @@ Partial Class General_SaldosIniciales
                 Alert("El nombre de la cuarta columna debe ser 'Valor'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
+
+        ElseIf RblFormato.SelectedValue = "13" Then 'ANTICIPO PROVEEDORES 
+
+            If Not dt.Columns(0).ColumnName = "RFC" Then
+                Alert("El nombre de la primera columna debe ser 'RFC'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(1).ColumnName = "Descripcion" Then
+                Alert("El nombre de la segunda columna debe ser 'Descripcion'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(2).ColumnName = "Fecha" Then
+                Alert("El nombre de la tercera columna debe ser 'Fecha'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(3).ColumnName = "Importe" Then
+                Alert("El nombre de la cuarta columna debe ser 'Importe'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(4).ColumnName = "Moneda" Then
+                Alert("El nombre de la cuarta columna debe ser 'Moneda'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(5).ColumnName = "TipoCambio" Then
+                Alert("El nombre de la cuarta columna debe ser 'TipoCambio'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(6).ColumnName = "CuentaContable" Then
+                Alert("El nombre de la cuarta columna debe ser 'CuentaContable'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+        ElseIf RblFormato.SelectedValue = "14" Then 'ANTICIPO CLIENTES
+
+            If Not dt.Columns(0).ColumnName = "RFC" Then
+                Alert("El nombre de la primera columna debe ser 'RFC'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(1).ColumnName = "Descripcion" Then
+                Alert("El nombre de la segunda columna debe ser 'Descripcion'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(2).ColumnName = "Fecha" Then
+                Alert("El nombre de la tercera columna debe ser 'Fecha'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(3).ColumnName = "Importe" Then
+                Alert("El nombre de la cuarta columna debe ser 'Importe'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(4).ColumnName = "Moneda" Then
+                Alert("El nombre de la cuarta columna debe ser 'Moneda'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(5).ColumnName = "TipoCambio" Then
+                Alert("El nombre de la cuarta columna debe ser 'TipoCambio'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(6).ColumnName = "CuentaContable" Then
+                Alert("El nombre de la cuarta columna debe ser 'CuentaContable'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+        ElseIf RblFormato.SelectedValue = "15" Then 'BANCOS
+
+            If Not dt.Columns(0).ColumnName = "CuentaBancaria" Then
+                Alert("El nombre de la primera columna debe ser 'CuentaBancaria'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(1).ColumnName = "Importe" Then
+                Alert("El nombre de la segunda columna debe ser 'Importe'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(2).ColumnName = "Moneda" Then
+                Alert("El nombre de la segunda columna debe ser 'Moneda'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(3).ColumnName = "TipoCambio" Then
+                Alert("El nombre de la segunda columna debe ser 'TipoCambio'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(4).ColumnName = "Fecha" Then
+                Alert("El nombre de la cuarta columna debe ser 'Fecha'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(5).ColumnName = "Descripcion" Then
+                Alert("El nombre de la cuarta columna debe ser 'Descripcion'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(6).ColumnName = "CuentaContable" Then
+                Alert("El nombre de la tercera columna debe ser 'CuentaContable'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+
         End If
 
 
@@ -2094,12 +2207,439 @@ Partial Class General_SaldosIniciales
                 ObjMovimientos.Dispose()
                 ProductosServiciosRef.Dispose()
                 AlmacenRef.Dispose()
+
+            ElseIf RblFormato.SelectedValue = "13" Then
+                ProcesaAnticipoProveedor(dt, DTCuentasContables)
+            ElseIf RblFormato.SelectedValue = "14" Then
+                ProcesaAnticipoCliente(dt, DTCuentasContables)
+            ElseIf RblFormato.SelectedValue = "15" Then
+                ProcesaBancos(dt, DTCuentasContables)
             End If
         End If
 
 
     End Sub
 
+
+
+    Private Sub ProcesaBancos(DTBancos As DataTable, DTCuentasContables As DataTable)
+
+        Dim ErrorProceso As Boolean = False
+
+        Dim ObjConta As New ClsContabilidad()
+        Dim ObjBancos As New ClsBancos(ObjConta.IniciaTransacSQL)
+
+        If Not DTBancos.Columns.Contains("CveCuentaContable") Then
+            DTBancos.Columns.Add("CveCuentaContable", GetType(Integer))
+        End If
+
+
+        Dim Contador As Integer = 0
+        For Each dRow As DataRow In DTBancos.Rows
+
+
+            Dim Fecha As Date = dRow("Fecha").ToString.ToDate
+            Dim Importe As Decimal = dRow("Importe").ToString.ToDecimal
+            Dim Descripcion As String = dRow("Descripcion").ToString
+            Dim NumCuenta As String = dRow("CuentaBancaria").ToString
+            Dim ImporteMX As Decimal = 0
+            Dim ImporteME As Decimal = 0
+
+            Dim Moneda As String = dRow("Moneda").ToString
+            Dim CveMoneda As Integer
+            Dim TipoCambio As Decimal = dRow("TipoCambio").ToString.ToDecimal
+
+
+
+            If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
+                CveMoneda = 1
+                TipoCambio = 1
+            ElseIf Moneda.ToUpper.Contiene("DÓLARES", "DOLARES", "USD") Then
+                CveMoneda = 2
+            End If
+
+            If CveMoneda.Contiene(1, 2) Then
+                If CveMoneda = 2 Then
+                    If TipoCambio = 0 Then
+                        Alert($"Registro {Contador + 1} moneda en dólares sin tipo de cambio especificado.")
+                        ErrorProceso = True
+                        Exit For
+                    Else
+                        ImporteMX = Importe * TipoCambio
+                        ImporteME = Importe
+                    End If
+                Else
+                    ImporteMX = Importe
+                    ImporteME = 0
+                End If
+            Else
+                Alert($"Registro {Contador + 1} moneda ({Moneda}) no valida.")
+                ErrorProceso = True
+                Exit For
+            End If
+
+
+
+            Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", $" NumCuenta = '{NumCuenta}'").ToEntero
+            If Not CveCuentaBancaria > 0 Then
+                Alert($"No se detecto  cuenta Bancaria {NumCuenta}", TipoMensaje.MsgAdvertencia)
+                ErrorProceso = True
+                Exit For
+            End If
+
+            Dim FolioStr As String = ""
+            FolioStr = CStr(ObjBancos.GetNextFolio(CveCuentaBancaria, 3) + Contador)
+
+            Dim CveCuentaContable As Integer = 0
+            Dim CuentaContable As String = dRow("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+
+            If CuentaContable.Length > 0 Then
+
+                CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+
+                If CveCuentaContable > 0 Then
+                    dRow("CveCuentaContable") = CveCuentaContable
+                Else
+                    Alert($"Cuenta Bancaria {NumCuenta} cuenta contable {CuentaContable} no encontrada.", TipoMensaje.MsgAdvertencia)
+                    ErrorProceso = True
+                    Exit For
+                End If
+
+                If Not ErrorProceso Then
+                    DTBancos.AcceptChanges()
+                End If
+
+            End If
+
+
+            If Not AsignacionCuenta(ObjConta, 30, CveCuentaContable, CveCuentaBancaria, -1, -1, -1, UsuarioActual.CveEmpresa) Then
+                ErrorProceso = True
+                Alert("Se presento un error al guardar en asignaciones", TipoMensaje.MsgAdvertencia)
+                Exit For
+            End If
+
+            Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Bancos/SaldoInicial", 66, Importe, Importe, CveMoneda, Fecha, FolioStr, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+            If Not CvePrePoliza > 0 Then
+                ErrorProceso = True
+                Exit For
+            End If
+
+
+            Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 3, Fecha, FolioStr.ToString, "", Importe, CveMoneda,
+                                       TipoCambio, Descripcion, "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString, 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString, 95, FolioStr, Fecha, -1, -1, CveIE:=CveIE, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+
+            Contador = Contador + 1
+        Next
+
+
+
+        If Not ErrorProceso Then
+            Alert($"Se agregaron {Contador} Movimientos.")
+            ObjBancos.Commit()
+        Else
+            ObjBancos.RollBack()
+        End If
+
+        ObjBancos.Dispose()
+
+
+    End Sub
+    Private Sub ProcesaAnticipoProveedor(DtAnticipoProveedor As DataTable, DTCuentasContables As DataTable)
+
+        Dim ErrorProceso As Boolean = False
+        Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero
+
+        If Not CveCuentaBancaria > 0 Then
+            Alert("No se detecto una cuenta Bancaria", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim ObjConta As New ClsContabilidad()
+        Dim ObjBancos As New ClsBancos(ObjConta.IniciaTransacSQL)
+
+        If Not DtAnticipoProveedor.Columns.Contains("CveCuentaContable") Then
+            DtAnticipoProveedor.Columns.Add("CveCuentaContable", GetType(Integer))
+        End If
+
+
+        Dim Contador As Integer = 0
+        For Each dRow As DataRow In DtAnticipoProveedor.Rows
+
+
+            Dim Fecha As Date = dRow("Fecha").ToString.ToDate
+            Dim Importe As Decimal = dRow("Importe").ToString.ToDecimal
+            Dim ImporteMX As Decimal = 0
+            Dim ImporteME As Decimal = 0
+            Dim Descripcion As String = dRow("Descripcion").ToString
+            Dim RFC As String = dRow("RFC").ToString
+            Dim Moneda As String = dRow("Moneda").ToString
+            Dim CveMoneda As Integer
+            Dim TipoCambio As Decimal = dRow("TipoCambio").ToString.ToDecimal
+
+
+
+            If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
+                CveMoneda = 1
+                TipoCambio = 1
+            ElseIf Moneda.ToUpper.Contiene("DÓLARES", "DOLARES", "USD") Then
+                CveMoneda = 2
+            End If
+
+            If CveMoneda.Contiene(1, 2) Then
+
+                If CveMoneda = 2 Then
+                    If TipoCambio = 0 Then
+                        Alert($"Registro {Contador + 1} moneda en dólares sin tipo de cambio especificado.")
+                        ErrorProceso = True
+                        Exit For
+                    Else
+                        ImporteMX = Importe * TipoCambio
+                        ImporteME = Importe
+                    End If
+                Else
+                    ImporteMX = Importe
+                    ImporteME = 0
+                End If
+
+            Else
+                Alert($"Registro {Contador + 1} moneda ({Moneda}) no valida.")
+                ErrorProceso = True
+                Exit For
+            End If
+
+
+            Dim FolioStr As String = ""
+            FolioStr = CStr(ObjBancos.GetNextFolio(CveCuentaBancaria, 1) + Contador)
+            Dim CveProveedor As Integer = GlobalDTCompProveedores(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $" RFC = '{RFC}' ").ToEntero
+
+
+            If Not CveProveedor > 0 Then
+                Alert($"No se encontro Proveedor con RFC: {RFC}.", TipoMensaje.MsgAdvertencia)
+                ErrorProceso = True
+                Exit For
+            End If
+
+            Dim CveCuentaContable As Integer = 0
+            Dim CuentaContable As String = dRow("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+
+            If CuentaContable.Length > 0 Then
+                CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+
+
+                If CveCuentaContable > 0 Then
+                    dRow("CveCuentaContable") = CveCuentaContable
+                Else
+                    Alert($"RFC {RFC} cuenta {CuentaContable} no encontrada.", TipoMensaje.MsgAdvertencia)
+                    ErrorProceso = True
+                    Exit For
+                End If
+
+                If Not ErrorProceso Then
+                    DtAnticipoProveedor.AcceptChanges()
+                End If
+
+            End If
+
+
+            If Not AsignacionCuenta(ObjConta, 10, CveCuentaContable, -1, CveProveedor, -1, -1, UsuarioActual.CveEmpresa) Then
+                ErrorProceso = True
+                Alert("Se presento un error al guardar en asignaciones", TipoMensaje.MsgAdvertencia)
+                Exit For
+            End If
+
+            Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Anticipo/Proveedor/SaldoInicial", 12, Importe, Importe, CveMoneda, Fecha, FolioStr, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+            If Not CvePrePoliza > 0 Then
+                ErrorProceso = True
+                Exit For
+            End If
+
+
+            Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 1, Fecha, FolioStr.ToString, "", Importe, CveMoneda,
+                                       TipoCambio, Descripcion, "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString, 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveProveedor:=CveProveedor, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString, 10, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveProveedor:=CveProveedor, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+
+            Contador = Contador + 1
+        Next
+
+
+
+        If Not ErrorProceso Then
+            Alert($"Se agregaron {Contador} Anticipos.")
+            ObjBancos.Commit()
+        Else
+            ObjBancos.RollBack()
+        End If
+
+        ObjBancos.Dispose()
+
+    End Sub
+    Private Sub ProcesaAnticipoCliente(DTAnticipoCliente As DataTable, DTCuentasContables As DataTable)
+
+        Dim ErrorProceso As Boolean = False
+        Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero
+
+        If Not CveCuentaBancaria > 0 Then
+            Alert("No se detecto una cuenta Bancaria", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim ObjConta As New ClsContabilidad()
+        Dim ObjBancos As New ClsBancos(ObjConta.IniciaTransacSQL)
+
+        If Not DTAnticipoCliente.Columns.Contains("CveCuentaContable") Then
+            DTAnticipoCliente.Columns.Add("CveCuentaContable", GetType(Integer))
+        End If
+
+
+        Dim Contador As Integer = 0
+        For Each dRow As DataRow In DTAnticipoCliente.Rows
+
+
+            Dim Fecha As Date = dRow("Fecha").ToString.ToDate
+            Dim Importe As Decimal = dRow("Importe").ToString.ToDecimal
+            Dim ImporteMX As Decimal = 0
+            Dim ImporteME As Decimal = 0
+            Dim Descripcion As String = dRow("Descripcion").ToString
+            Dim RFC As String = dRow("RFC").ToString
+            Dim Moneda As String = dRow("Moneda").ToString
+            Dim CveMoneda As Integer
+            Dim TipoCambio As Decimal = dRow("TipoCambio").ToString.ToDecimal
+
+            If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
+                CveMoneda = 1
+                TipoCambio = 1
+            ElseIf Moneda.ToUpper.Contiene("DÓLARES", "DOLARES", "USD") Then
+                CveMoneda = 2
+            End If
+
+            If CveMoneda.Contiene(1, 2) Then
+
+                If CveMoneda = 2 Then
+                    If TipoCambio = 0 Then
+                        Alert($"Registro {Contador + 1} moneda en dólares sin tipo de cambio especificado.")
+                        ErrorProceso = True
+                        Exit For
+                    Else
+                        ImporteMX = Importe * TipoCambio
+                        ImporteME = Importe
+                    End If
+                Else
+                    ImporteMX = Importe
+                    ImporteME = 0
+                End If
+
+            Else
+                Alert($"Registro {Contador + 1} moneda ({Moneda}) no valida.")
+                ErrorProceso = True
+                Exit For
+            End If
+
+            Dim FolioStr As String = ""
+            FolioStr = CStr(ObjBancos.GetNextFolio(CveCuentaBancaria, 3) + Contador)
+            Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCliente", $" RFC = '{RFC}' ").ToEntero
+
+
+            If Not CveCliente > 0 Then
+                Alert($"No se encontro cliente con RFC: {RFC}.", TipoMensaje.MsgAdvertencia)
+                ErrorProceso = True
+                Exit For
+            End If
+
+
+            'Dim RazonSocial As String = Row("RazonSocial").ToString
+            Dim CveCuentaContable As Integer = 0
+            Dim CuentaContable As String = dRow("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+
+            If CuentaContable.Length > 0 Then
+                CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+
+
+                If CveCuentaContable > 0 Then
+                    dRow("CveCuentaContable") = CveCuentaContable
+                Else
+                    Alert($"RFC {RFC} cuenta {CuentaContable} no encontrada.", TipoMensaje.MsgAdvertencia)
+                    ErrorProceso = True
+                    Exit For
+                End If
+
+                If Not ErrorProceso Then
+                    DTAnticipoCliente.AcceptChanges()
+                End If
+
+            End If
+
+
+            If Not AsignacionCuenta(ObjConta, 66, CveCuentaContable, -1, -1, CveCliente, -1, UsuarioActual.CveEmpresa) Then
+                ErrorProceso = True
+                Alert("Se presento un error al guardar en asignaciones", TipoMensaje.MsgAdvertencia)
+                Exit For
+            End If
+
+            Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Anticipo/Cliente/SaldoInicial", 24, Importe, Importe, CveMoneda, Fecha, FolioStr, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+            If Not CvePrePoliza > 0 Then
+                ErrorProceso = True
+                Exit For
+            End If
+
+
+            Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 3, Fecha, FolioStr.ToString, "", Importe, CveMoneda,
+                                       TipoCambio, Descripcion, "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString, 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString, 66, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+
+            Contador = Contador + 1
+        Next
+
+
+
+        If Not ErrorProceso Then
+            Alert($"Se agregaron {Contador} Anticipos.")
+            ObjBancos.Commit()
+        Else
+            ObjBancos.RollBack()
+        End If
+
+        ObjBancos.Dispose()
+
+
+
+
+
+
+    End Sub
+
+
+    Private Function AsignacionCuenta(ObjContabilidad As ClsContabilidad, CveConceptoContable As Integer, CveCuentaContable As Integer, CveBancoCuenta As Integer, CveProveedor As Integer, CveCliente As Integer,
+                                      CvePersonal As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Respuesta As Boolean = False
+
+        'If Not ObjConta.AddCuentasAsignaciones(28, UsuarioActual.CveEmpresa, CveCuentaContable, -1,
+        '                              -1, -1, ObjRH.CvePersonal, -1, -1, 0, CveBancoCuenta:=-1, CveConceptoNomina:=-1, CveSubProyecto:=-1, CveActivoFijo:=-1,
+        '                              CveTipoGasto:=-1, RegeneraCuenta:=False) Then
+        '    ErrorRH = True
+        '    Exit For
+        'End If
+
+        If ObjContabilidad.AddCuentasAsignaciones(CveConceptoContable, CveEmpresa, CveCuentaContable, -1,
+                                      CveProveedor, CveCliente, CvePersonal, -1, -1, 0, CveBancoCuenta:=CveBancoCuenta, CveConceptoNomina:=-1, CveSubProyecto:=-1, CveActivoFijo:=-1,
+                                      CveTipoGasto:=-1, RegeneraCuenta:=False) Then
+            Respuesta = True
+        End If
+
+        Return Respuesta
+
+    End Function
+
     Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
 
         Dim Directorio As String = ""
@@ -2127,7 +2667,14 @@ Partial Class General_SaldosIniciales
             Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoPrePoliza.xlsx"
         ElseIf RblFormato.SelectedValue = "12" Then
             Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoAlmacen.xlsx"
+        ElseIf RblFormato.SelectedValue = "13" Then
+            Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoAnticipoProveedor.xlsx"
+        ElseIf RblFormato.SelectedValue = "14" Then
+            Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoAnticipoCliente.xlsx"
+        ElseIf RblFormato.SelectedValue = "15" Then
+            Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoBancos.xlsx"
         End If
+
         If Not (Directorio = "") Then
 
             Dim Archivo As New IO.FileInfo(Directorio)
@@ -2462,6 +3009,7 @@ Partial Class General_SaldosIniciales
                 Dim MetodoPago As String = Row("Metodo Pago").ToString
                 Dim Nominista As String = Row("Nominista").ToString
                 Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString.ToEntero
+                Dim Saldo As Decimal = Row("Saldo").ToString.ToDecimal
 
                 Dim NombreCompleto As String = $"{Nombre} {ApellidoPaterno} {ApellidoMaterno}"
 
@@ -2723,7 +3271,6 @@ Partial Class General_SaldosIniciales
                     If CveCuentaContable > 0 Then
 
                         Dim ObjConta As New ClsContabilidad(ObjRH.IniciaTransacSQL)
-
                         If Not ObjConta.AddCuentasAsignaciones(28, UsuarioActual.CveEmpresa, CveCuentaContable, -1,
                                       -1, -1, ObjRH.CvePersonal, -1, -1, 0, CveBancoCuenta:=-1, CveConceptoNomina:=-1, CveSubProyecto:=-1, CveActivoFijo:=-1,
                                       CveTipoGasto:=-1, RegeneraCuenta:=False) Then
@@ -2733,6 +3280,47 @@ Partial Class General_SaldosIniciales
 
                     End If
 
+                    If Saldo > 0 Then
+
+                        If Not CveCuentaContable > 0 Then
+                            Alert($"Personal {NombreCompleto} tiene saldo pero no se especifico cuenta contable.")
+                            ErrorRH = True
+                            Exit For
+                        End If
+
+                        Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero
+
+                        If Not CveCuentaBancaria > 0 Then
+                            Alert("No se detecto una cuenta Bancaria", TipoMensaje.MsgAdvertencia)
+                            Exit Sub
+                        End If
+
+                        Dim ObjConta As New ClsContabilidad(ObjRH.IniciaTransacSQL)
+                        Dim ObjBancos As New ClsBancos(ObjRH.IniciaTransacSQL)
+
+
+                        Dim Fecha As Date = TxtFecha.Text.ToDate
+
+
+                        Dim FolioStr As String = ""
+
+                        FolioStr = CStr(ObjBancos.GetNextFolio(CveCuentaBancaria, 3) + Contador)
+
+                        Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Saldo/Personal/SaldoInicial", 23, Saldo, Saldo, 1, Fecha, FolioStr, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                        If Not CvePrePoliza > 0 Then
+                            ErrorRH = True
+                            Exit For
+                        End If
+
+                        Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 3, Fecha, FolioStr.ToString, "", Saldo, 1,
+                                                       1, "Saldo Inicial", "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, FolioStr.ToString, 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CvePersonal:=CvePersonal, Contabilizable:=False, ImporteMX:=Saldo) Then ErrorRH = True : Exit For
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, FolioStr.ToString, 28, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CvePersonal:=CvePersonal, Contabilizable:=False, ImporteMX:=Saldo) Then ErrorRH = True : Exit For
+
+
+                    End If
 
                 End If
 
@@ -3055,6 +3643,7 @@ Partial Class General_SaldosIniciales
         libro.Cell(crow, ccol).Value = "Nominista" : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Registro Patronal" : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "CuentaContable" : ccol = ccol + 1
+        libro.Cell(crow, ccol).Value = "Saldo" : ccol = ccol + 1
 
 
         libro.Range(crow, 1, crow, ccol - 1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189))

vwd.webinfo

@@ -564,6 +564,10 @@
     
   
     
+  
+    
+  
+