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

0 Comp: En OC, autoseleccionar lugar de entrega, y quitar ambos check de temporales, 3 Comp: Bug de numero de parte en Kardex, tambien poner liga al PS desde el numero de parte, siempre y cuando tengas permiso para PS

Browse Source
This commit is contained in:
rakcsle
2025-01-14 19:02:17 -07:00
parent 4ed6074af2
commit a2d58a7242
6 changed files with 118 additions and 1183 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Compras/PopUpVerFactura.aspx.vb
View File

@@ -3121,9 +3121,6 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio)) params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
'params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
'params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
@@ -6039,7 +6036,12 @@ Partial Class PopUpVerFactura
Dim rdsPrePoliza As New ReportDataSource("DSPrePoliza", dtPrePoliza) Dim rdsPrePoliza As New ReportDataSource("DSPrePoliza", dtPrePoliza)
reportDataSetsList.Add(rdsPrePoliza) reportDataSetsList.Add(rdsPrePoliza)
Dim lblSubProyecto As New Label
CargarCentrosDeCosto(Nothing, Nothing, Nothing, lblSubProyecto)
paramList.Add(New ReportParameter("TipoCentroCosto", lblSubProyecto.Text))
ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientosPrePoliza.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF") ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientosPrePoliza.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
Else Else
ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF") ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
End If End If

1156
Empresas/Grales/Formatos/SaldoAntNCDev.rdlc
View File

File diff suppressed because it is too large Load Diff

103
Empresas/Grales/Formatos/rptChequeMovimientosPrePoliza.rdlc
View File

@@ -21,6 +21,10 @@
<DataField>Folio</DataField> <DataField>Folio</DataField>
<rd:TypeName>System.String</rd:TypeName> <rd:TypeName>System.String</rd:TypeName>
</Field> </Field>
<Field Name="SubProyecto">
<DataField>SubProyecto</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Descripcion"> <Field Name="Descripcion">
<DataField>Descripcion</DataField> <DataField>Descripcion</DataField>
<rd:TypeName>System.String</rd:TypeName> <rd:TypeName>System.String</rd:TypeName>
@@ -280,19 +284,22 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>3.28769cm</Width> <Width>2.30174cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>6.38658cm</Width> <Width>2.5cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.30262cm</Width> <Width>5.49301cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.03516cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.35633cm</Width> <Width>2.35633cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.36223cm</Width> <Width>1.96772cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.20167cm</Width> <Width>2.20167cm</Width>
@@ -342,6 +349,43 @@
</Textbox> </Textbox>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox1">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!TipoCentroCosto.Value</Value>
<Style>
<FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>LightGrey</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox21"> <Textbox Name="Textbox21">
@@ -351,7 +395,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Descripción</Value> <Value>Descripcion</Value>
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -602,6 +646,39 @@
</Textbox> </Textbox>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="SubProyecto1">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!SubProyecto.Value</Value>
<Style>
<FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>SubProyecto1</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>Solid</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Descripcion"> <Textbox Name="Descripcion">
@@ -855,12 +932,13 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>4</ColSpan> <ColSpan>5</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell /> <TablixCell />
<TablixCell /> <TablixCell />
<TablixCell /> <TablixCell />
<TablixCell />
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Importe2"> <Textbox Name="Importe2">
@@ -985,6 +1063,7 @@
<TablixMember /> <TablixMember />
<TablixMember /> <TablixMember />
<TablixMember /> <TablixMember />
<TablixMember />
</TablixMembers> </TablixMembers>
</TablixColumnHierarchy> </TablixColumnHierarchy>
<TablixRowHierarchy> <TablixRowHierarchy>
@@ -1014,7 +1093,7 @@
<Top>2.18687cm</Top> <Top>2.18687cm</Top>
<Left>0.19063cm</Left> <Left>0.19063cm</Left>
<Height>1.42958cm</Height> <Height>1.42958cm</Height>
<Width>21.11455cm</Width> <Width>21.07307cm</Width>
<ZIndex>4</ZIndex> <ZIndex>4</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -1787,7 +1866,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Sub Proyecto</Value> <Value>=Parameters!TipoCentroCosto.Value</Value>
<Style> <Style>
<FontFamily>Verdana</FontFamily> <FontFamily>Verdana</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -2494,7 +2573,6 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName> <rd:DefaultName>Textbox10</rd:DefaultName>
<Top>0cm</Top>
<Left>8.07914cm</Left> <Left>8.07914cm</Left>
<Height>0.50299cm</Height> <Height>0.50299cm</Height>
<Width>2.87394cm</Width> <Width>2.87394cm</Width>
@@ -2526,7 +2604,6 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox11</rd:DefaultName> <rd:DefaultName>Textbox11</rd:DefaultName>
<Top>0cm</Top>
<Left>10.95308cm</Left> <Left>10.95308cm</Left>
<Height>0.50299cm</Height> <Height>0.50299cm</Height>
<Width>4.58986cm</Width> <Width>4.58986cm</Width>
@@ -2623,6 +2700,12 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="TipoCentroCosto">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<Variables> <Variables>
<Variable Name="SumNC"> <Variable Name="SumNC">

19
Inventarios/Kardex.aspx.vb
View File

@@ -289,22 +289,25 @@ Partial Class Inventarios_Kardex
UpAcciones.Update() UpAcciones.Update()
End If End If
Dim NumeroParte As String = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("NumeroParte")
If NumeroParte.Trim.Length > 0 Then
If UsuarioActual.TienePermisoPagina(13) Then
LblNumeroParte.Text = $" Número de Parte: <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{NumeroParte}</a>"
If CvePS > 0 Then Else
Dim NumeroParte As String = GlobalDTPS(UsuarioActual.CveEmpresa, ddlProducto2.SelectedValue.ToEntero).FiltroPrimeroValor("NumeroParte")
If NumeroParte.Trim.Length > 0 Then
LblNumeroParte.Text = $" Número de Parte: {NumeroParte}" LblNumeroParte.Text = $" Número de Parte: {NumeroParte}"
LblNumeroParte.Visible = True
End If End If
End If
UpNumeroParte.Update() LblNumeroParte.Visible = True
End If
Else Else
Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia) Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
End If End If
UpNumeroParte.Update()
End Sub End Sub
Private Sub CargarOCPendientesCompra() Private Sub CargarOCPendientesCompra()

4
OC/OC.aspx
View File

@@ -1766,9 +1766,7 @@
<asp:RequiredFieldValidator ID="RFVGrid" runat="server" ControlToValidate="TxtGrid" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Cuando menos debe tener un <b>''Producto''</b>" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVGrid" runat="server" ControlToValidate="TxtGrid" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Cuando menos debe tener un <b>''Producto''</b>" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEGrid" runat="server" HighlightCssClass="vco" TargetControlID="RFVGrid" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCEGrid" runat="server" HighlightCssClass="vco" TargetControlID="RFVGrid" Width="300px"></ajax:ValidatorCalloutExtender>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:CheckBox runat="server" ID="ChkEsTemporalRegistro" Text="Registrar Temporal" Visible="false" />
</td> </td>
</tr> </tr>

11
OC/OC.aspx.vb
View File

@@ -739,10 +739,18 @@ Partial Class OC_OC
TdProyectoSubPrpyectoDdl.Visible = False TdProyectoSubPrpyectoDdl.Visible = False
TdProyectoSubPrpyecto.Visible = False TdProyectoSubPrpyecto.Visible = False
GvD.Columns(4).Visible = False GvD.Columns(4).Visible = False
chkSubProyectoEntrega.Checked = True
DdlSubProyectoEntrega.Visible = chkSubProyectoEntrega.Checked
txtLugarEntrega.Visible = Not chkSubProyectoEntrega.Checked
UPPEmp.Update()
UPPDetalle.Update() UPPDetalle.Update()
End If End If
'CARGA YA REGISTRADO 'CARGA YA REGISTRADO
If Request("OC") IsNot Nothing AndAlso IsNumeric(Request("OC")) AndAlso Request("OC").ToEntero > 0 Then If Request("OC") IsNot Nothing AndAlso IsNumeric(Request("OC")) AndAlso Request("OC").ToEntero > 0 Then
@@ -1073,9 +1081,6 @@ Partial Class OC_OC
TrDescuentoEscalonado.Visible = True TrDescuentoEscalonado.Visible = True
TrDescuentoProntoPago.Visible = True TrDescuentoProntoPago.Visible = True
If TipoOC = "OC" AndAlso UsuarioActual.TienePermisoProceso(401) AndAlso EsNuevo Then
ChkEsTemporalRegistro.Visible = True
End If
End If End If
If UsuarioActual.Empresa.CveEmpresa = 189 AndAlso CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then If UsuarioActual.Empresa.CveEmpresa = 189 AndAlso CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then