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

OC Imprimir Req al generar

Browse Source
This commit is contained in:
rakcsle
2025-01-03 09:46:02 -07:00
parent 9b8de71a48
commit 30e43d5332
2 changed files with 22 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Empresas/189/Formatos/Entradas.rdlc
View File

@@ -1581,7 +1581,7 @@
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=IIf( <Value>=IIf(
Fields!Cargo.Value = 0, Sum(Fields!Cargo.Value) = 0,
"", "",
Format(Sum(Fields!Cargo.Value), "###,###,###.00") Format(Sum(Fields!Cargo.Value), "###,###,###.00")
)</Value> )</Value>
@@ -1618,7 +1618,7 @@
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=IIf( <Value>=IIf(
Fields!Abono.Value = 0, Sum(Fields!Abono.Value) = 0,
"", "",
Format(Sum(Fields!Abono.Value), "###,###,###.00") Format(Sum(Fields!Abono.Value), "###,###,###.00")
)</Value> )</Value>
@@ -1643,6 +1643,7 @@
</Border> </Border>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
</TablixCells> </TablixCells>

22
OC/OC.aspx.vb
View File

@@ -3148,7 +3148,10 @@ Partial Class OC_OC
ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("<a href='/OC/OC.aspx?OC={0}'>{1}</a>", CveOrdenCompra, SerieFolio), "") ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("<a href='/OC/OC.aspx?OC={0}'>{1}</a>", CveOrdenCompra, SerieFolio), "")
If CveOrdenCompra > 0 Then If CveOrdenCompra > 0 Then
Dim ImprimirOC As String = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Orden de Compra</a> ", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra)))
Dim ImprimirOC As String = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir {1}</a> ", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra)), If(TipoOC = "OC", "Orden de Compra", "Requisición"))
Dim Msg As New StringBuilder Dim Msg As New StringBuilder
'Cuando Estatus = "Autorizada" 'Cuando Estatus = "Autorizada"
@@ -3164,11 +3167,24 @@ Partial Class OC_OC
End If End If
If LigaOCs = "" Then If LigaOCs = "" Then
Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente <br/> {2}", TipoLargo, SerieFolio, If(TipoOC = "OC", ImprimirOC, "")) If TipoOC.ToUpper = "REQ" Then
Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente <br/> {2}", TipoLargo, SerieFolio, ImprimirOC)
Else
Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente <br/> {2}", TipoLargo, SerieFolio, If(TipoOC = "OC", ImprimirOC, ""))
End If
Else Else
Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, SerieFolio, LigaOCs, If(TipoOC = "OC", ImprimirOC, ""))
If TipoOC.ToUpper = "REQ" Then
Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, SerieFolio, LigaOCs, ImprimirOC)
Else
Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, SerieFolio, LigaOCs, If(TipoOC = "OC", ImprimirOC, ""))
End If
End If End If
'IMPRIME LIGA A POLIZAS 'IMPRIME LIGA A POLIZAS
If IDPolizasGeneradas.Count > 0 Then If IDPolizasGeneradas.Count > 0 Then
Msg.Append("<br/><br/> <b>Polizas generadas:</b>") Msg.Append("<br/><br/> <b>Polizas generadas:</b>")