AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-02-06 13:25:31 -07:00
parent 2852d1505b
commit ca4d260f3d
7 changed files with 71 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsContabilidad.vb
View File

@@ -388,7 +388,7 @@ Public Class ClsContabilidad
Public Function GetProveedoresAuxiliar(CveProveedor As Integer, CveConceptoContable As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Public Function GetProveedoresAuxiliar(CveProveedor As Integer, CveConceptoContable As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer,
Optional Opcion As Integer = 1, Optional CveTipoProveedor As Integer = -1) As Boolean Optional Opcion As Integer = 1, Optional CveTipoProveedor As Integer = -1, Optional Contabilizable As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Conta_ProveedoresAuxiliar") DataAdapter("PA_Conta_ProveedoresAuxiliar")
@@ -402,6 +402,7 @@ Public Class ClsContabilidad
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor
.Add("@Contabilizable", SqlDbType.Int).Value = Contabilizable
End With End With
Try Try

8
Compras/ProveedoresAuxiliar.aspx
View File

@@ -131,6 +131,14 @@
<asp:ListItem Text="Acreedor" Value="2"></asp:ListItem> <asp:ListItem Text="Acreedor" Value="2"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="col-md-1 truncate">Contabilizable:</label>
<div class="col-md-3">
<asp:DropDownList ID="DdlOpcionContabilizable" CssClass="form-control input-sm select2me" Width="260px" runat="server">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Contabilizable" Value="0"></asp:ListItem>
<asp:ListItem Text="No contabilizable" Value="1"></asp:ListItem>
</asp:DropDownList>
</div>
</div> </div>
</div> </div>
</div> </div>

2
Compras/ProveedoresAuxiliar.aspx.vb
View File

@@ -81,7 +81,7 @@ Partial Class Compras_ProveedoresAuxiliar
'Falta PA 'Falta PA
If ObjConta.GetProveedoresAuxiliar(DdlProveeedores.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, If ObjConta.GetProveedoresAuxiliar(DdlProveeedores.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa,
DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero) Then DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero, DdlOpcionContabilizable.SelectedValue.ToEntero) Then
If DdlOpcion.SelectedValue.ToEntero = 2 Then If DdlOpcion.SelectedValue.ToEntero = 2 Then
GvP.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 5 AND Importe >= 0,0,1) = 1 ") GvP.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 5 AND Importe >= 0,0,1) = 1 ")
Else Else

34
Empresas/57/Formatos/Factura.rdlc
View File

@@ -816,8 +816,15 @@
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun> <TextRun>
<Value>=Parameters!RFC.Value</Value> <Value>GOTE811117236</Value>
<Style> <Style>
<FontFamily>Calibri</FontFamily> <FontFamily>Calibri</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -832,7 +839,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName> <rd:DefaultName>Textbox4</rd:DefaultName>
<Left>1.78362in</Left> <Left>1.78362in</Left>
<Height>0.46414in</Height> <Height>0.56136in</Height>
<Width>3.96172in</Width> <Width>3.96172in</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>
<Style> <Style>
@@ -1121,7 +1128,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Parameters!DomicilioExpedicion.Value</Value> <Value>=Parameters!DomicilioSucursal.Value</Value>
<Style> <Style>
<FontFamily>Calibri</FontFamily> <FontFamily>Calibri</FontFamily>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
@@ -1135,9 +1142,9 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName> <rd:DefaultName>Textbox10</rd:DefaultName>
<Top>0.46414in</Top> <Top>0.58914in</Top>
<Left>1.87861in</Left> <Left>1.87861in</Left>
<Height>0.69679in</Height> <Height>0.6374in</Height>
<Width>1.65152in</Width> <Width>1.65152in</Width>
<ZIndex>13</ZIndex> <ZIndex>13</ZIndex>
<Style> <Style>
@@ -1172,7 +1179,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Parameters!DomicilioExpedicion.Value</Value> <Value>=Parameters!DomicilioSucursal.Value</Value>
<Style> <Style>
<FontFamily>Calibri</FontFamily> <FontFamily>Calibri</FontFamily>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
@@ -1186,9 +1193,9 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName> <rd:DefaultName>Textbox10</rd:DefaultName>
<Top>0.46414in</Top> <Top>0.58914in</Top>
<Left>3.84822in</Left> <Left>3.84822in</Left>
<Height>0.69679in</Height> <Height>0.6374in</Height>
<Width>1.786in</Width> <Width>1.786in</Width>
<ZIndex>14</ZIndex> <ZIndex>14</ZIndex>
<Style> <Style>
@@ -1219,8 +1226,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>1.28209in</Top> <Top>1.28209in</Top>
<Left>0.13897cm</Left>
<Height>0.23611in</Height> <Height>0.23611in</Height>
<Width>0.89901in</Width> <Width>0.85202in</Width>
<ZIndex>15</ZIndex> <ZIndex>15</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -1294,7 +1302,6 @@
<TextRun> <TextRun>
<Value>Dirección</Value> <Value>Dirección</Value>
<Style> <Style>
<FontFamily>Calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
@@ -1304,7 +1311,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>1.53208in</Top> <Top>1.53208in</Top>
<Left>0.04514in</Left> <Left>0.05471in</Left>
<Height>0.23611in</Height> <Height>0.23611in</Height>
<Width>0.85387in</Width> <Width>0.85387in</Width>
<ZIndex>17</ZIndex> <ZIndex>17</ZIndex>
@@ -1379,9 +1386,8 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Cuidad</Value> <Value>Ciudad</Value>
<Style> <Style>
<FontFamily>Calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
@@ -1391,7 +1397,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName> <rd:DefaultName>Textbox19</rd:DefaultName>
<Top>1.7682in</Top> <Top>1.7682in</Top>
<Left>0.04514in</Left> <Left>0.05471in</Left>
<Height>0.25in</Height> <Height>0.25in</Height>
<Width>0.85387in</Width> <Width>0.85387in</Width>
<ZIndex>19</ZIndex> <ZIndex>19</ZIndex>

2
Inventarios/TraspasoAlmacen.aspx
View File

@@ -470,7 +470,7 @@
<br /> <br />
<asp:UpdatePanel runat="server"> <asp:UpdatePanel ID="UpNuevoRealizar" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="row" style="text-align: center;"> <div class="row" style="text-align: center;">
<div class="col-md-12"> <div class="col-md-12">

40
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -926,6 +926,24 @@ Partial Class Inventarios_TraspasoAlmacen
End If End If
End If End If
End If End If
Else
If Not ErrorMovInv Then
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, TxtObservaciones.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
Dim resultado As DataTable = ObjInventario.DtResultados
Dim importe As Decimal = resultado.SUM("Total").ToDecimal
Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorio.SelectedValue.ToEntero)).ToEntero
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then
ErrorMovInv = True
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then
ErrorMovInv = True
End If
End If
End If
End If End If
@@ -989,7 +1007,7 @@ Partial Class Inventarios_TraspasoAlmacen
If ErrorExistencia Then If ErrorExistencia Then
CargaGvDatos() CargaGvDatos()
End If End If
ObjConta.Dispose()
ObjInventario.Dispose() ObjInventario.Dispose()
End Sub End Sub
@@ -1573,6 +1591,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim Folio = 0 Dim Folio = 0
Dim ErrorMovInv As Boolean = False Dim ErrorMovInv As Boolean = False
Dim TextoError = "" Dim TextoError = ""
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
'' verifica que no se halla recibido previamente, si ya se recibió da salida '' verifica que no se halla recibido previamente, si ya se recibió da salida
If ObjInventario.GetMovimientosTransitorios(CveAlmacenDestino, -1, CveAlmacenTransitorio, -1, FolioBusqueda, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosTransitorios(CveAlmacenDestino, -1, CveAlmacenTransitorio, -1, FolioBusqueda, UsuarioActual.CveEmpresa) Then
@@ -1644,7 +1663,23 @@ Partial Class Inventarios_TraspasoAlmacen
End If End If
Cont += 1 Cont += 1
Next Next
If Not ErrorMovInv Then
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, TxtObservacionesRecepcion.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
Dim resultado As DataTable = ObjInventario.DtResultados
Dim importe As Decimal = resultado.SUM("Total").ToDecimal
Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then
ErrorMovInv = True
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then
ErrorMovInv = True
End If
End If
End If
End If End If
@@ -1773,6 +1808,7 @@ Partial Class Inventarios_TraspasoAlmacen
Alert(TextoError, TipoMensaje.MsgError) Alert(TextoError, TipoMensaje.MsgError)
End If End If
ObjInventario.Dispose() ObjInventario.Dispose()
ObjConta.Dispose()
CargaRecepcion() CargaRecepcion()
Else Else
Alert("No hay movimientos para el traspaso", TipoMensaje.MsgAdvertencia) Alert("No hay movimientos para el traspaso", TipoMensaje.MsgAdvertencia)

2
OC/OC.aspx
View File

@@ -591,7 +591,7 @@
</div> </div>
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="Ddlcliente" OnSelectedIndexChanged="Ddlcliente_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" Width="100%" DataTextField="Nombre" DataValueField="CveCliente" runat="server"></asp:DropDownList> <asp:DropDownList ID="Ddlcliente" OnSelectedIndexChanged="Ddlcliente_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" Width="100%" DataTextField="CodigoNombre" DataValueField="CveCliente" runat="server"></asp:DropDownList>
<%-- <asp:RangeValidator ID="RVCliente" CssClass="form-control" runat="server" ControlToValidate="Ddlcliente" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator> <%-- <asp:RangeValidator ID="RVCliente" CssClass="form-control" runat="server" ControlToValidate="Ddlcliente" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
<ajax:ValidatorCalloutExtender ID="VCECliente" runat="server" HighlightCssClass="vco" TargetControlID="RVCliente" Width="300px"></ajax:ValidatorCalloutExtender>--%> <ajax:ValidatorCalloutExtender ID="VCECliente" runat="server" HighlightCssClass="vco" TargetControlID="RVCliente" Width="300px"></ajax:ValidatorCalloutExtender>--%>
</div> </div>