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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2025-01-08 11:23:06 -07:00
parent fb7d0d03d0 9b9ba096fa
commit 820318ef67
14 changed files with 2289 additions and 712 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Compras/Compras.aspx
View File

@@ -1342,7 +1342,14 @@
</ItemTemplate>
</asp:TemplateField>
<%--3--%>
<asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText=" Producto" DataField="CodigoPS" />
<%--<asp:BoundField ItemStyle-HorizontalAlign="Left" HeaderText=" Producto" DataField="CodigoPS" />--%>
<asp:TemplateField>
<HeaderTemplate>Producto</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
<asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("CodigoPS") %>' Visible="false" Target="_blank"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<%--4--%>
<asp:BoundField ItemStyle-Width="120px" HeaderText="P.U." DataField="PU" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
<%--5--%>
@@ -1439,6 +1446,7 @@
<HeaderTemplate>Producto</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
<asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("CodigoPS") %>' Visible="false" Target="_blank"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Serie" Visible="false">

29
Compras/Compras.aspx.vb
View File

@@ -1228,6 +1228,19 @@ Partial Class Compras_Compras
End Set
End Property
Private Property TienePermisoKardex As Boolean
Get
If ViewState("TienePermisoKardex") Is Nothing Then
ViewState("TienePermisoKardex") = False
End If
Return Boolean.Parse(ViewState("TienePermisoKardex").ToString)
End Get
Set(value As Boolean)
ViewState("TienePermisoKardex") = value
End Set
End Property
Private Property CveCompraDRMC As Integer
Get
If ViewState("CveCompraDRMC") Is Nothing Then
@@ -1246,6 +1259,7 @@ Partial Class Compras_Compras
'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
'ImgBtnBuscarOC.Attributes.Add("data-placement", "top")
EsGrupoDiaz = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False)
TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
CargaDatosAgregarPS()
TieneAnticiposXML = False
@@ -11252,6 +11266,14 @@ Partial Class Compras_Compras
Protected Sub GVINV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If TienePermisoKardex Then
e.Row.FCLiteral("LtlPS").Visible = False
e.Row.FCHyperLink("HlPS").Visible = True
e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}"
End If
Dim AplicaLote As Boolean = e.Row.DBCampo("AplicaLote").ToBool
Dim AplicaCaducidad As Boolean = e.Row.DBCampo("AplicaCaducidad").ToBool
@@ -19635,6 +19657,13 @@ Partial Class Compras_Compras
e.Row.Font.Bold = True
End If
Else
If TienePermisoKardex Then
e.Row.FCLiteral("LtlPS").Visible = False
e.Row.FCHyperLink("HlPS").Visible = True
e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}"
End If
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
End If
End If

218
Empresas/189/Formatos/Cotizacion.mrt
View File

@@ -29,7 +29,7 @@
</DtImpuestos>
<DtDetalle Ref="4" type="DataTableSource" isKey="true">
<Alias>DtDetalle</Alias>
<Columns isList="true" count="17">
<Columns isList="true" count="18">
<value>Cantidad,System.Decimal</value>
<value>UM,System.String</value>
<value>UnidadMedida,System.String</value>
@@ -47,6 +47,7 @@
<value>TiempoEntrega,System.String</value>
<value>Codigo,System.String</value>
<value>SATClaveUM,System.String</value>
<value>NumeroParte,System.String</value>
</Columns>
<Dictionary isRef="1" />
<Key>20e4ae855c2345189166d6029cebb7ac</Key>
@@ -1267,11 +1268,11 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<HeaderBand1 Ref="13" type="HeaderBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,6.6,21.1,0.5</ClientRectangle>
<Components isList="true" count="9">
<Components isList="true" count="10">
<Textbox23 Ref="14" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0.03,1.4,0.5</ClientRectangle>
<ClientRectangle>0,0.03,1,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9,Regular,Point,False,0</Font>
@@ -1286,7 +1287,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Textbox17 Ref="15" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>1.4,0.03,1.69,0.5</ClientRectangle>
<ClientRectangle>1,0.03,1.45,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9,Regular,Point,False,0</Font>
@@ -1301,7 +1302,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Textbox29 Ref="16" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.09,0.03,1.77,0.5</ClientRectangle>
<ClientRectangle>2.31,0.03,1.59,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9,Regular,Point,False,0</Font>
@@ -1310,13 +1311,14 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Name>Textbox29</Name>
<Page isRef="5" />
<Parent isRef="13" />
<Text>CLAVE SAT</Text>
<Text>CLV. SAT</Text>
<TextBrush>[255:255:255]</TextBrush>
<Type>Expression</Type>
</Textbox29>
<Textbox18 Ref="17" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>6.46,0.03,6.88,0.5</ClientRectangle>
<ClientRectangle>5.26,0.03,6.48,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9,Regular,Point,False,0</Font>
@@ -1331,7 +1333,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Textbox8 Ref="18" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>4.8,0.03,1.7,0.5</ClientRectangle>
<ClientRectangle>3.8,0.03,1.5,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9,Regular,Point,False,0</Font>
@@ -1347,7 +1349,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Textbox2 Ref="19" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>17.1,0.03,1.57,0.5</ClientRectangle>
<ClientRectangle>17.5,0.03,1.57,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9,Regular,Point,False,0</Font>
@@ -1362,7 +1364,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Textbox6 Ref="20" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>18.62,0.03,2.51,0.5</ClientRectangle>
<ClientRectangle>19.02,0.03,2.11,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9,Regular,Point,False,0</Font>
@@ -1377,7 +1379,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Text1 Ref="21" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>15.4,0.03,1.7,0.5</ClientRectangle>
<ClientRectangle>16,0.03,1.5,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9,Regular,Point,False,0</Font>
@@ -1393,7 +1395,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Text7 Ref="22" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>13.3,0.03,2.1,0.5</ClientRectangle>
<ClientRectangle>14.1,0.03,1.9,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9,Regular,Point,False,0</Font>
@@ -1407,6 +1409,23 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<TextBrush>[255:255:255]</TextBrush>
<Type>Expression</Type>
</Text7>
<Text13 Ref="23" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>11.6,0.03,2.68,0.5</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Microsoft Sans Serif,9.5,Regular,Point,False,0</Font>
<Guid>fee663500c4849c89786e368cea19ad4</Guid>
<HorAlignment>Center</HorAlignment>
<Margins>2,2,2,2</Margins>
<Name>Text13</Name>
<Page isRef="5" />
<Parent isRef="13" />
<Text># Parte</Text>
<TextBrush>[255:255:255]</TextBrush>
<Type>Expression</Type>
</Text13>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
@@ -1414,16 +1433,16 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Page isRef="5" />
<Parent isRef="5" />
</HeaderBand1>
<DataBand3 Ref="23" type="DataBand" isKey="true">
<DataBand3 Ref="24" type="DataBand" isKey="true">
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<CanShrink>True</CanShrink>
<ClientRectangle>0,7.9,21.1,0.42</ClientRectangle>
<Components isList="true" count="9">
<Cantidad1 Ref="24" type="Text" isKey="true">
<Components isList="true" count="10">
<Cantidad1 Ref="25" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,1.4,0.37</ClientRectangle>
<ClientRectangle>0,0,1,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -1432,17 +1451,17 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>Cantidad1</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Parent isRef="24" />
<Text>{DtDetalle.Cantidad}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="25" type="CustomFormat" isKey="true">
<TextFormat Ref="26" type="CustomFormat" isKey="true">
<StringFormat>n2</StringFormat>
</TextFormat>
</Cantidad1>
<UM Ref="26" type="Text" isKey="true">
<UM Ref="27" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>1.4,0,1.69,0.37</ClientRectangle>
<ClientRectangle>1,0,1.49,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -1450,15 +1469,15 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>UM</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Parent isRef="24" />
<Text>{DtDetalle.UMCalculada}</Text>
<TextBrush>Black</TextBrush>
<Type>DataColumn</Type>
</UM>
<SATClaveProdServ Ref="27" type="Text" isKey="true">
<SATClaveProdServ Ref="28" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>3.09,0,1.77,0.37</ClientRectangle>
<ClientRectangle>2.49,0,1.37,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -1466,15 +1485,15 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>SATClaveProdServ</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Parent isRef="24" />
<Text>{DtDetalle.SATClaveProdServ}</Text>
<TextBrush>Black</TextBrush>
</SATClaveProdServ>
<PS Ref="28" type="Text" isKey="true">
<PS Ref="29" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanBreak>True</CanBreak>
<CanGrow>True</CanGrow>
<ClientRectangle>6.46,0,6.88,0.37</ClientRectangle>
<ClientRectangle>5.26,0,6.28,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -1483,16 +1502,16 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>PS</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Parent isRef="24" />
<Text>{DtDetalle.PSCalculado}</Text>
<TextBrush>Black</TextBrush>
<TextOptions>,,,,WordWrap=True,A=0</TextOptions>
<Type>DataColumn</Type>
</PS>
<PU Ref="29" type="Text" isKey="true">
<PU Ref="30" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>15.34,0,1.86,0.37</ClientRectangle>
<ClientRectangle>15.94,0,1.66,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -1501,17 +1520,17 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>PU</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Parent isRef="24" />
<Text>{DtDetalle.PU}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="30" type="CustomFormat" isKey="true">
<TextFormat Ref="31" type="CustomFormat" isKey="true">
<StringFormat>#,0.00;-#,0.00;'-'</StringFormat>
</TextFormat>
</PU>
<Descuento2 Ref="31" type="Text" isKey="true">
<Descuento2 Ref="32" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>4.8,0,1.7,0.37</ClientRectangle>
<ClientRectangle>3.8,0,1.5,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -1519,15 +1538,15 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>Descuento2</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Parent isRef="24" />
<Text>{DtDetalle.Codigo}</Text>
<TextBrush>Black</TextBrush>
<Type>DataColumn</Type>
</Descuento2>
<ImporteIVA Ref="32" type="Text" isKey="true">
<ImporteIVA Ref="33" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>17.1,0,1.57,0.37</ClientRectangle>
<ClientRectangle>17.5,0,1.57,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -1536,17 +1555,17 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>ImporteIVA</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Parent isRef="24" />
<Text>{DtDetalle.ImporteIVA}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="33" type="CustomFormat" isKey="true">
<TextFormat Ref="34" type="CustomFormat" isKey="true">
<StringFormat>#,0.00;-#,0.00;'-'</StringFormat>
</TextFormat>
</ImporteIVA>
<TiempoEntrega Ref="34" type="Text" isKey="true">
<TiempoEntrega Ref="35" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>18.67,0,2.42,0.42</ClientRectangle>
<ClientRectangle>19.07,0,2.02,0.42</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -1555,19 +1574,19 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>TiempoEntrega</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Parent isRef="24" />
<Text>{DtDetalle.Total}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="35" type="CustomFormat" isKey="true">
<TextFormat Ref="36" type="CustomFormat" isKey="true">
<StringFormat>#,0.00</StringFormat>
</TextFormat>
<Type>DataColumn</Type>
</TiempoEntrega>
<Text9 Ref="36" type="Text" isKey="true">
<Text9 Ref="37" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanBreak>True</CanBreak>
<CanGrow>True</CanGrow>
<ClientRectangle>13.3,0,2.1,0.37</ClientRectangle>
<ClientRectangle>14.4,0,1.6,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -1575,12 +1594,34 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>Text9</Name>
<Page isRef="5" />
<Parent isRef="23" />
<Parent isRef="24" />
<Text>{DtDetalle.TiempoEntrega}</Text>
<TextBrush>Black</TextBrush>
<TextOptions>,,,,WordWrap=True,A=0</TextOptions>
<Type>DataColumn</Type>
</Text9>
<Text12 Ref="38" type="Text" isKey="true">
<AutoWidth>True</AutoWidth>
<Brush>Transparent</Brush>
<CanBreak>True</CanBreak>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>11.6,0,2.73,0.37</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<GrowToHeight>True</GrowToHeight>
<Guid>82adb17441e2499394641266d411f5aa</Guid>
<Linked>True</Linked>
<Margins>2,2,2,2</Margins>
<Name>Text12</Name>
<Page isRef="5" />
<Parent isRef="24" />
<Text>{DtDetalle.NumeroParte}</Text>
<TextBrush>Black</TextBrush>
<TextOptions>,,,,WordWrap=True,A=0</TextOptions>
<Type>DataColumn</Type>
</Text12>
</Components>
<Conditions isList="true" count="0" />
<DataSourceName>DtDetalle</DataSourceName>
@@ -1591,24 +1632,24 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Parent isRef="5" />
<Sort isList="true" count="0" />
</DataBand3>
<FooterBand1 Ref="37" type="FooterBand" isKey="true">
<FooterBand1 Ref="39" type="FooterBand" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>0,9.12,21.1,3.6</ClientRectangle>
<Components isList="true" count="7">
<Panel3 Ref="38" type="Panel" isKey="true">
<Components isList="true" count="6">
<Panel3 Ref="40" type="Panel" isKey="true">
<Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<CanShrink>True</CanShrink>
<ClientRectangle>15.8,0.38,5.2,0.65</ClientRectangle>
<Components isList="true" count="1">
<DataBand1 Ref="39" type="DataBand" isKey="true">
<DataBand1 Ref="41" type="DataBand" isKey="true">
<Border>None;[247:150:70];1;Solid;False;8;[247:150:70]</Border>
<Brush>Transparent</Brush>
<BusinessObjectGuid isNull="true" />
<ClientRectangle>0,0.4,5.2,0.4</ClientRectangle>
<Components isList="true" count="2">
<Text2 Ref="40" type="Text" isKey="true">
<Text2 Ref="42" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,1.48,0.37</ClientRectangle>
@@ -1619,13 +1660,13 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>Text2</Name>
<Page isRef="5" />
<Parent isRef="39" />
<Parent isRef="41" />
<Text>{DtTotales.ImpuestoLocal}</Text>
<TextBrush>Black</TextBrush>
<Type>DataColumn</Type>
<VertAlignment>Bottom</VertAlignment>
</Text2>
<Text22 Ref="41" type="Text" isKey="true">
<Text22 Ref="43" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>1.4,0,3.88,0.37</ClientRectangle>
@@ -1636,10 +1677,10 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>Text22</Name>
<Page isRef="5" />
<Parent isRef="39" />
<Parent isRef="41" />
<Text>{DtTotales.Importe}</Text>
<TextBrush>Black</TextBrush>
<TextFormat Ref="42" type="NumberFormat" isKey="true">
<TextFormat Ref="44" type="NumberFormat" isKey="true">
<DecimalDigits>2</DecimalDigits>
<GroupSeparator>,</GroupSeparator>
<NegativePattern>1</NegativePattern>
@@ -1656,7 +1697,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Filters isList="true" count="0" />
<Name>DataBand1</Name>
<Page isRef="5" />
<Parent isRef="38" />
<Parent isRef="40" />
<Sort isList="true" count="0" />
</DataBand1>
</Components>
@@ -1665,9 +1706,9 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<GrowToHeight>True</GrowToHeight>
<Name>Panel3</Name>
<Page isRef="5" />
<Parent isRef="37" />
<Parent isRef="39" />
</Panel3>
<Text21 Ref="43" type="Text" isKey="true">
<Text21 Ref="45" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0.08,21.09,0.14</ClientRectangle>
@@ -1677,11 +1718,11 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>Text21</Name>
<Page isRef="5" />
<Parent isRef="37" />
<Parent isRef="39" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text21>
<Text6 Ref="44" type="Text" isKey="true">
<Text6 Ref="46" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanBreak>True</CanBreak>
<CanGrow>True</CanGrow>
@@ -1694,39 +1735,42 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>Text6</Name>
<Page isRef="5" />
<Parent isRef="37" />
<Parent isRef="39" />
<PrintOn>OnlyLastPage</PrintOn>
<Text>{ImporteLetra}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text6>
<Panel2 Ref="45" type="Panel" isKey="true">
<Panel2 Ref="47" type="Panel" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0.28,5.2,1</ClientRectangle>
<Components isList="true" count="0" />
<Components isList="true" count="1">
<Text4 Ref="48" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0,0,14.8,1.8</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
<Margins>0,0,0,0</Margins>
<Name>Text4</Name>
<Page isRef="5" />
<Parent isRef="47" />
<Text>{Observaciones}</Text>
<TextBrush>Black</TextBrush>
<TextOptions>,,,,WordWrap=True,A=0</TextOptions>
<Type>Expression</Type>
</Text4>
</Components>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Name>Panel2</Name>
<Page isRef="5" />
<Parent isRef="37" />
<Parent isRef="39" />
<PrintOn>OnlyLastPage</PrintOn>
</Panel2>
<Text4 Ref="46" type="Text" isKey="true">
<Brush>Transparent</Brush>
<ClientRectangle>5.2,0.28,10.6,1</ClientRectangle>
<Conditions isList="true" count="0" />
<Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Regular,Point,False,0</Font>
<Margins>0,0,0,0</Margins>
<Name>Text4</Name>
<Page isRef="5" />
<Parent isRef="37" />
<Text>{Observaciones}</Text>
<TextBrush>Black</TextBrush>
<Type>Expression</Type>
</Text4>
<Text3 Ref="47" type="Text" isKey="true">
<Text3 Ref="49" type="Text" isKey="true">
<Brush>[227:108:9]</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>16,1.28,5.09,0.14</ClientRectangle>
@@ -1736,11 +1780,11 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>Text3</Name>
<Page isRef="5" />
<Parent isRef="37" />
<Parent isRef="39" />
<PrintOn>OnlyLastPage</PrintOn>
<TextBrush>Black</TextBrush>
</Text3>
<Text11 Ref="48" type="Text" isKey="true">
<Text11 Ref="50" type="Text" isKey="true">
<AllowHtmlTags>True</AllowHtmlTags>
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
@@ -1753,7 +1797,7 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Margins>2,2,2,2</Margins>
<Name>Text11</Name>
<Page isRef="5" />
<Parent isRef="37" />
<Parent isRef="39" />
<Text>&lt;div&gt;&lt;b&gt;ATENTAMENTE &lt;br&gt;&lt;/b&gt;&lt;/div&gt;&lt;div&gt;&lt;font size="8"&gt;{VendedorNombre}&lt;/font&gt;&lt;/div&gt;&lt;div&gt;&lt;font size="8"&gt;&amp;nbsp;{VendedorMail}&lt;/font&gt;&lt;/div&gt;&lt;div&gt;&lt;font size="8"&gt;&amp;nbsp;{VendedorCelular}&lt;/font&gt;&lt;/div&gt;</Text>
<TextBrush>[0:0:0]</TextBrush>
<TextQuality>Wysiwyg</TextQuality>
@@ -1766,13 +1810,13 @@ eumNey+99NJLL71x76WXXnrppTfuvfTSSy+9zFX+Hzfu8CqceDCTAAAAAElFTkSuQmCC</ImageBytes
<Page isRef="5" />
<Parent isRef="5" />
</FooterBand1>
<ReportSummaryBand1 Ref="49" type="ReportSummaryBand" isKey="true">
<ReportSummaryBand1 Ref="51" type="ReportSummaryBand" isKey="true">
<Brush>Transparent</Brush>
<CanBreak>True</CanBreak>
<CanShrink>True</CanShrink>
<ClientRectangle>0,13.52,21.1,4.6</ClientRectangle>
<Components isList="true" count="2">
<Image3 Ref="50" type="Image" isKey="true">
<Image3 Ref="52" type="Image" isKey="true">
<AspectRatio>True</AspectRatio>
<Brush>Transparent</Brush>
<ClientRectangle>0,0.08,21.2,2.4</ClientRectangle>
@@ -6204,10 +6248,10 @@ ub5TDEQwl8Y0TpIarpJhbSnXwNo47Zr4YWC+xyXg/wDaeXyvhrEgkwAAAABJRU5ErkJggg==</ImageB
<Margins>0,0,0,0</Margins>
<Name>Image3</Name>
<Page isRef="5" />
<Parent isRef="49" />
<Parent isRef="51" />
<Stretch>True</Stretch>
</Image3>
<Text10 Ref="51" type="Text" isKey="true">
<Text10 Ref="53" type="Text" isKey="true">
<Brush>Transparent</Brush>
<CanGrow>True</CanGrow>
<ClientRectangle>0.2,2.68,7.48,1.35</ClientRectangle>
@@ -6218,7 +6262,7 @@ ub5TDEQwl8Y0TpIarpJhbSnXwNo47Zr4YWC+xyXg/wDaeXyvhrEgkwAAAABJRU5ErkJggg==</ImageB
<Margins>2,2,2,2</Margins>
<Name>Text10</Name>
<Page isRef="5" />
<Parent isRef="49" />
<Parent isRef="51" />
<Text>CUENTAS BANCARIAS:
BBVA : 0448617643 CLABE: 012760004486176439
BANAMEX: 6724628 CLABE: 002760036367246288</Text>
@@ -6260,7 +6304,7 @@ BANAMEX: 6724628 CLABE: 002760036367246288</Text>
<ReportChanged>12/14/2024 11:28:34 AM</ReportChanged>
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
<ReportFile>Cotizacion.mrt</ReportFile>
<ReportGuid>2bb81bb1181f4d0ba0b7fa1647eb8eb4</ReportGuid>
<ReportGuid>922cc12405514f97971fb265603925cb</ReportGuid>
<ReportName>Report</ReportName>
<ReportUnit>Centimeters</ReportUnit>
<ReportVersion>2022.4.5.0</ReportVersion>

716
Empresas/189/Formatos/Factura.mrt
View File

File diff suppressed because it is too large Load Diff

88
Empresas/189/Formatos/OC.rdlc
View File

@@ -914,10 +914,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox28">
@@ -949,10 +945,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox27">
@@ -986,10 +978,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</Textbox>
@@ -1024,10 +1012,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</Textbox>
@@ -1060,10 +1044,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox42">
@@ -1097,10 +1077,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</Textbox>
@@ -1186,19 +1162,15 @@
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>3.65532cm</Top>
<Left>15.22566cm</Left>
<Left>15.77355cm</Left>
<Height>0.14316cm</Height>
<Width>5.47753cm</Width>
<Width>4.92964cm</Width>
<ZIndex>8</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>#e36c09</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox9">
@@ -1219,19 +1191,15 @@
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>4.42669cm</Top>
<Left>15.22566cm</Left>
<Left>15.76669cm</Left>
<Height>0.14502cm</Height>
<Width>5.47832cm</Width>
<Width>4.96569cm</Width>
<ZIndex>9</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>#e36c09</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox1">
@@ -1244,14 +1212,14 @@
<Value>Descripción: </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Descripcion.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -1261,8 +1229,8 @@
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.36159cm</Top>
<Left>0.03529cm</Left>
<Height>0.41479cm</Height>
<Width>14.67376cm</Width>
<Height>0.41655cm</Height>
<Width>15.63243cm</Width>
<ZIndex>10</ZIndex>
<Style>
<Border>
@@ -1306,10 +1274,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox38">
@@ -1346,10 +1310,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</Textbox>
@@ -1385,10 +1345,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox39">
@@ -1425,10 +1381,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</Textbox>
@@ -1464,10 +1416,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox44">
@@ -1504,10 +1452,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</Textbox>
@@ -1543,10 +1487,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox47">
@@ -1583,10 +1523,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</Textbox>
@@ -1622,10 +1558,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox49">
@@ -1662,10 +1594,6 @@
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
<rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
</Style>
</Textbox>

1258
Empresas/189/Formatos/Remision.mrt
View File

File diff suppressed because it is too large Load Diff

138
Empresas/189/Formatos/RepComprasDetalle.rdlc
View File

@@ -137,9 +137,6 @@
<TablixColumn>
<Width>1.86196cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.02278cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.8cm</Width>
</TablixColumn>
@@ -159,10 +156,10 @@
<Width>3.87584cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.32706cm</Width>
<Width>1.80331cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.41521cm</Width>
<Width>1.96175cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.5cm</Width>
@@ -205,40 +202,6 @@
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Cantidad">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Cantidad.Value</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>6.5pt</FontSize>
<Format>#,0.00</Format>
<Color>=IIF(CInt(Fields!CveCompra.Value) &lt; 1, "White","Black")</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Cantidad</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<BackgroundColor>=IIF(CInt(Fields!CveCompra.Value) &lt; 1, "#67809F","Transparent")</BackgroundColor>
<PaddingTop>0.5pt</PaddingTop>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="SubTotal">
@@ -367,6 +330,15 @@
<Color>=IIF(CInt(Fields!CveCompra.Value) &lt; 1, "White","Black")</Color>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>6.5pt</FontSize>
<Format>#,0.00</Format>
<Color>=IIF(CInt(Fields!CveCompra.Value) &lt; 1, "White","Black")</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
@@ -593,43 +565,6 @@
</CellContents>
</TablixHeader>
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>0.44125cm</Size>
<CellContents>
<Textbox Name="Textbox42">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Cant.</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>7.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox42</rd:DefaultName>
<Style>
<Border>
<Color>#e36c09</Color>
<Style>Solid</Style>
</Border>
<BackgroundColor>#e36c09</BackgroundColor>
<PaddingTop>1pt</PaddingTop>
</Style>
</Textbox>
</CellContents>
</TablixHeader>
</TablixMember>
<TablixMember>
<TablixHeader>
<Size>0.44125cm</Size>
@@ -863,7 +798,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>F. Inv.</Value>
<Value>Folio. Inv</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>7.5pt</FontSize>
@@ -900,7 +835,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>F. Mov.</Value>
<Value>Fecha Mov.</Value>
<Style>
<FontFamily>MYRIAd Pro</FontFamily>
<FontSize>7.5pt</FontSize>
@@ -1012,7 +947,7 @@
<Top>0.75875cm</Top>
<Left>0.06614cm</Left>
<Height>0.8825cm</Height>
<Width>20.60902cm</Width>
<Width>20.60903cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -1064,6 +999,7 @@
<PageHeader>
<Height>2.22362cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
<Textbox Name="Textbox1">
<CanGrow>true</CanGrow>
@@ -1084,9 +1020,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Left>2.43857cm</Left>
<Left>3.8144cm</Left>
<Height>0.6cm</Height>
<Width>14.68354cm</Width>
<Width>13.0693cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -1132,9 +1068,9 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>0.63528cm</Top>
<Left>2.40329cm</Left>
<Left>3.77912cm</Left>
<Height>0.52945cm</Height>
<Width>14.68354cm</Width>
<Width>13.0693cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
@@ -1152,7 +1088,7 @@
<Sizing>FitProportional</Sizing>
<Left>0.06614cm</Left>
<Height>2.22362cm</Height>
<Width>2.33715cm</Width>
<Width>3.00743cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
@@ -1168,7 +1104,7 @@
</Style>
</PageHeader>
<PageFooter>
<Height>1.08126cm</Height>
<Height>0.48291cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
@@ -1192,9 +1128,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.40041cm</Top>
<Left>16.97887cm</Left>
<Height>0.68085cm</Height>
<Top>0.08291cm</Top>
<Left>18.6093cm</Left>
<Height>0.4cm</Height>
<Width>2.06587cm</Width>
<Style>
<Border>
@@ -1213,7 +1149,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=iif(Globals.PageNumber = Globals.TotalPages, "Usuario: ", "")</Value>
<Value EvaluationMode="Constant">Usuario:</Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
@@ -1224,9 +1160,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox8</rd:DefaultName>
<Top>0.40041cm</Top>
<Top>0.08291cm</Top>
<Left>0.06614cm</Left>
<Height>0.68085cm</Height>
<Height>0.4cm</Height>
<Width>1.60042cm</Width>
<ZIndex>1</ZIndex>
<Style>
@@ -1246,7 +1182,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=iif(Globals.PageNumber = Globals.TotalPages, Parameters!UsuarioImprimio.Value, "")</Value>
<Value>=Parameters!UsuarioImprimio.Value</Value>
<Style>
<FontSize>9pt</FontSize>
</Style>
@@ -1256,9 +1192,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName>
<Top>0.40041cm</Top>
<Top>0.08291cm</Top>
<Left>1.61047cm</Left>
<Height>0.68085cm</Height>
<Height>0.4cm</Height>
<Width>5.14936cm</Width>
<ZIndex>2</ZIndex>
<Style>
@@ -1278,7 +1214,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=iif(Globals.PageNumber = Globals.TotalPages, "Fecha Impresión: ", "")</Value>
<Value EvaluationMode="Constant">Fecha Impresión:</Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
@@ -1289,9 +1225,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName>
<Top>0.40041cm</Top>
<Top>0.08291cm</Top>
<Left>6.93622cm</Left>
<Height>0.68085cm</Height>
<Height>0.4cm</Height>
<Width>2.92333cm</Width>
<ZIndex>3</ZIndex>
<Style>
@@ -1311,7 +1247,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=iif(Globals.PageNumber = Globals.TotalPages, Parameters!FechaImpresion.Value, "")</Value>
<Value>=Parameters!FechaImpresion.Value</Value>
<Style>
<FontSize>9pt</FontSize>
<Format>D</Format>
@@ -1322,9 +1258,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox11</rd:DefaultName>
<Top>0.40041cm</Top>
<Top>0.08291cm</Top>
<Left>9.84544cm</Left>
<Height>0.68085cm</Height>
<Height>0.4cm</Height>
<Width>4.32745cm</Width>
<ZIndex>4</ZIndex>
<Style>
@@ -1349,7 +1285,7 @@
<LeftMargin>0.1cm</LeftMargin>
<RightMargin>0.1cm</RightMargin>
<TopMargin>1cm</TopMargin>
<BottomMargin>1cm</BottomMargin>
<BottomMargin>0.5cm</BottomMargin>
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>

1
OC/OC.aspx
View File

@@ -998,6 +998,7 @@
</span>
<br />
<asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS") %>'></asp:Label>
<asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("PS") %>' Visible="false" Target="_blank"></asp:HyperLink>
</ItemTemplate>
<EditItemTemplate>
<asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" CssClass="form-control input-sm select2me" Style="width: 100%; max-width: 600px;" OnSelectedIndexChanged="DdlClasificacion_SelectedIndexChanged1">

22
OC/OC.aspx.vb
View File

@@ -671,6 +671,19 @@ Partial Class OC_OC
End Set
End Property
Private Property TienePermisoKardex As Boolean
Get
If ViewState("TienePermisoKardex") Is Nothing Then
ViewState("TienePermisoKardex") = False
End If
Return Boolean.Parse(ViewState("TienePermisoKardex").ToString)
End Get
Set(value As Boolean)
ViewState("TienePermisoKardex") = value
End Set
End Property
#End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -684,6 +697,8 @@ Partial Class OC_OC
EsGrupoDiaz = True
End If
TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
CargaDatosAgregarPS()
CveProveedorOriginal = -1
InventarioPrePoliza176 = 0
@@ -4096,6 +4111,12 @@ Partial Class OC_OC
If e.Row.RowType = DataControlRowType.DataRow Then
If TienePermisoKardex AndAlso e.Row.RowState = DataControlRowState.Normal Then
e.Row.FCLabel("LblPS").Visible = False
e.Row.FCHyperLink("HlPS").Visible = True
e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DBCampo("CvePS").ToString}"
End If
Try
If e.Row.FCLabel("LtlCantidad") IsNot Nothing Then
e.Row.FCLabel("LtlCantidad").Attributes.Add("data-toggle", "tooltip")
@@ -4316,6 +4337,7 @@ Partial Class OC_OC
End If
End If
End Sub
Protected Sub GvD_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvD.RowDeleting

7
Ventas/Clientes.aspx.vb
View File

@@ -4818,14 +4818,9 @@ Partial Class Clientes
ConsultarAnticiposSaldosClientes()
End Sub
Private Sub ConsultarAnticiposSaldosClientes()
DVBusquedaImportarSaldos.Visible = False
Dim ObjMovtos As New ClsMovimientos()
If ObjMovtos.GetAnticiposNCIxCCliente(DdlClienteImportarSaldos.SelectedValue.ToEntero()) Then
GvImportarSaldos.DataSource = ObjMovtos.DtResultados.FiltraParametros("ISTotal = 0 AND Saldo > 0 AND Saldo > 0 AND CveIE > 0 AND Tipo IN('NC','IxC','Ant')")
If ObjMovtos.DtResultados.Rows.Count > 0 Then
DVBusquedaImportarSaldos.Visible = True
End If
GvImportarSaldos.DataSource = ObjMovtos.DtResultados.FiltraParametros("ISTotal = 0 AND Saldo > 0 AND Tipo IN('NC','IxC','Ant')")
Else
GvImportarSaldos.DataSource = Nothing
End If

61
Ventas/PVCobranza.aspx
View File

@@ -392,13 +392,58 @@
</div>
</div>
</div>
<br />
<div class="portlet light xspadding traspasorow bordered" runat="server" visible="false" id="DivCancelacionesPendientes">
<div class="portlet-title">
<div class="caption font-green">
<span class="caption-subject bold uppercase" style="line-height: 1; color: #ff6000;">Cancelaciones en proceso</span>
</div>
<div class="actions">
<div class="btn-group">
<div class="row" style="margin-left: 0px; text-align: right" align="left">
<div style="margin-right: 15px">
<input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
</div>
</div>
</div>
<div class="portlet-body rowpadding">
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvCancelaciones" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron solicitudes de cancelación" OnRowDataBound="GvCancelaciones_RowDataBound"
DataKeyNames="CveVenta,CveCliente,Folio,TipoDocto,Nombre,FolioFiscal,Total,SubTotal,RFCReceptor,CveEstatusRefacturacion"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None" Width="100%">
<Columns>
<asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-Width="25%" />
<asp:HyperLinkField HeaderText="Serie Folio" DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" ItemStyle-Width="15%" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
<asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Fecha Solicitud" DataField="FechaCambioEstatus" ItemStyle-Width="15%" />
<asp:BoundField HeaderText="Motivo" DataField="MotivoCancelacion" ItemStyle-Width="25%" />
<asp:TemplateField ItemStyle-Width="5%" >
<ItemTemplate>
<asp:LinkButton runat="server" ID="BtnValidar" OnClick="BtnValidar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea verificar la cancelación?" data-btn-ok-label="si"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</div>
</div>
</div>
</div>
</div>
<div class="col-md-6">
<asp:Panel runat="server" ID="PnlContado" DefaultButton="BtnPagar" Visible="false">
<div class="row">
<div class="note note-success">
<div class="row">
<div class="col-md-2">
<div class="col-md-2">
<b>Nombre:</b>
</div>
<div class="col-md-4">&nbsp;<label><asp:Literal ID="LtlNombre" runat="server"></asp:Literal></label>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</div>
@@ -536,7 +581,7 @@
<div class="row">
<div class="col-md-2">
<label>Anticipos:</label><asp:LinkButton ID="ImgAntiPend" Visible="false" OnClick="ImgAntiPend_Click" runat="server" Text=" <i class='fa fa-money' style='font-size: 18px !important; color: #3c763d !important;'></i> " AlternateText="Aplicación de anticipos" Style="cursor: pointer;" />
</div>
<div class="col-md-4 input-icon">
<i style="margin: 0px;">$</i>
@@ -1106,7 +1151,7 @@
<div id="DivAnticipos" class="modal ADS fade" role="dialog">
<asp:UpdatePanel runat="server" ID="UpAnticipos" UpdateMode="Conditional" RenderMode="Inline">
<ContentTemplate>
<div class="modal-dialog" style ="width: 700px;">
<div class="modal-dialog" style="width: 700px;">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
@@ -1187,7 +1232,7 @@
</div>
<br />
<asp:GridView ID="GVAnticipos" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Anticipos del Cliente"
ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall mysmallbtn" data-height="300" GridLines="None"
ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall mysmallbtn" data-height="300" GridLines="None"
DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, FolioFiscal, CveClasificacionNC, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto,DevolucionImportePagado,CveCliente,Descuentos">
<Columns>
<asp:TemplateField>
@@ -1259,7 +1304,7 @@
</ContentTemplate>
</asp:UpdatePanel>
</div>
<asp:Button ID="BtnEnviarMailCancelacion" runat="server" ClientIDMode="Static" Text="Enviar Mail Cliente" Style="display: none;" OnClick="BtnEnviarMailCancelacion_Click" />
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script src="/Scripts/PrintJS/print.min.js"></script>
@@ -1268,6 +1313,10 @@
// printJS({ printable: urlPDF, type: 'pdf', showModal: true });
//}
function BtnEnviarMailCancelacion() {
$('#BtnEnviarMailCancelacion').click();
}
function chkAnt(t, txt, importe, AmorContrato = 0) {
let totalAnt = 0;
@@ -1375,7 +1424,7 @@
let totalDebito = ToDouble($get("TxtImporteDebito").value);
let totalCheque = ToDouble($get("TxtImporteCheque").value);
let totalTransferencia = ToDouble($get("TxtImporteTransferencia").value);
let TotalOtrosContado = 0;
let TotalOtrosContado = 0;
let total = totalEfectivo + totalCredito + totalDebito + totalCheque + totalTransferencia;

431
Ventas/PVCobranza.aspx.vb
View File

@@ -25,6 +25,18 @@ Partial Class Ventas_PVCobranza
End Set
End Property
Private Property CveVentaCancelacion As Integer
Get
If ViewState("CveVentaCancelacion") Is Nothing Then
ViewState("CveVentaCancelacion") = -1
End If
Return ViewState("CveVentaCancelacion").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveVentaCancelacion") = value
End Set
End Property
Private Property TmpDTAnticiposNCIxCCliente As DataTable
Get
Return If(IsNothing(ViewState("TmpDTAnticiposNCIxCCliente")), Nothing, CType(ViewState("TmpDTAnticiposNCIxCCliente"), DataTable))
@@ -365,9 +377,33 @@ Partial Class Ventas_PVCobranza
End If
MuestraNoTimbradasCentroCosto()
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
CargaCancelaciones()
End If
End Sub
Private Sub CargaCancelaciones()
If DdlSubProyecto.SelectedValue.ToEntero() > 0 Then
DivCancelacionesPendientes.Visible = True
Dim DtVentas As DataTable = Nothing
Dim ObjVentas = New ClsVentas()
If ObjVentas.GetVentasPendientesCancelacion(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
DtVentas = ObjVentas.DtResultados.Copy()
End If
ObjVentas.Dispose()
If DtVentas IsNot Nothing Then
GvCancelaciones.DataSource = DtVentas.FiltraParametros($"(CveEstatusFactura IN (20) AND CveEstatusRefacturacion IN (0,4)) AND CveSubProyecto={DdlSubProyecto.SelectedValue.ToEntero()}")
GvCancelaciones.DataBind()
End If
UpL.Update()
End If
End Sub
Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
@@ -770,6 +806,12 @@ Partial Class Ventas_PVCobranza
AjustarTimbre(respFactura.Factura, Nothing)
MsgTimbrado = TimbrarFactura(respFactura.Factura, Nothing)
End If
If Not String.IsNullOrEmpty(MsgTimbrado) Then
Dim StrEr As String = $"<br/><div id = 'DivTipoCambioAdvertencia' class='alert alert-warning' style='padding: 5px; margin-bottom: 5px; padding-right: 25px;'><strong style = 'font-size: 20px; margin-right: 25px;' > Comprobante no emitido : </strong> {MsgTimbrado}<br/>Por favor inténtelo de nuevo a través del botón 'Emitir' en ventas.</div>"
MsgTimbrado = StrEr
End If
End If
If respFactura IsNot Nothing Then
@@ -1233,7 +1275,7 @@ Partial Class Ventas_PVCobranza
Dim TimbroNC As Boolean = ObjTimbradoNC.TimbrarFactura(UsuarioActual, ObjNC)
If Not TimbroNC Then
MsgErrorTimbrado = ObjTimbradoNC.MensajeErrorCFDI
MsgErrorTimbrado = $"{MsgErrorTimbrado} {ObjTimbradoNC.MensajeErrorCFDI}"
End If
ObjTimbradoNC = Nothing
End If
@@ -2160,4 +2202,391 @@ Partial Class Ventas_PVCobranza
UpContadoOtros.Update()
End Sub
#Region "C A N C E L A C I O N E S"
Protected Sub BtnValidar_Click(ByVal sender As Object, ByVal e As EventArgs)
CveVentaCancelacion = -1
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
CveVentaCancelacion = GvRow.DataKey("CveVenta").ToEntero()
Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero()
Dim Total As String = GvRow.DataKey("Total")
Dim SubTotal As String = GvRow.DataKey("SubTotal")
Dim Uuid As String = GvRow.DataKey("FolioFiscal")
Dim RFCReceptor As String = GvRow.DataKey("RFCReceptor")
Dim Folio As String = GvRow.DataKey("Folio")
Dim TipoDocto As String = GvRow.DataKey("TipoDocto")
Dim Nombre As String = GvRow.DataKey("Nombre")
Dim CveEstatusRefact As String = GvRow.DataKey("CveEstatusRefacturacion")
Dim Msg As String
If CveVentaCancelacion > 0 AndAlso Uuid <> "" Then
Dim resp = VerificarVigenciaSAT(CveVentaCancelacion, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCReceptor, Total)
If resp.EnviarAcuse Then
Msg = resp.Mensaje
If CveEstatusRefact = "4" Then
Msg = Msg & "<br/><a class='Texto' href='/Ventas/Ventas.aspx?CveDevolucion=" & CveVentaCancelacion & "&NuevaFactura=1'> Refacturar</a>"
End If
Alert(Msg, TipoMensaje.MsgConfirmacion, "BtnEnviarMailCancelacion();", TextoConfirmacion:="Enviar", TextoSegundoBoton:="Cancelar")
Else
Msg = resp.Mensaje
If CveEstatusRefact = "4" Then
Msg = Msg & "<br/><a class='Texto' href='/Ventas/Ventas.aspx?CveDevolucion=" & CveVentaCancelacion & "&NuevaFactura=1'> Refacturar</a>"
End If
Alert(Msg)
End If
End If
CargaCancelaciones()
End Sub
Private Function VerificarVigenciaSAT(ByVal CveVenta As Integer, ByVal CveCliente As Integer, ByVal Folio As String, ByVal TipoDocto As String, ByVal uuid As String, ByVal emisor As String, ByVal receptor As String, ByVal total As String, ByVal Optional EsRefacturacion As Boolean = False, ByVal Optional FolioSustitucion As String = "", ByVal Optional CveEstatusFactura As Integer = -1, ByVal Optional CveMotivoSustitucion As Integer = 0) As MRespuestaSAT
Dim retorno = New MRespuestaSAT With {
.Mensaje = "",
.EnviarAcuse = False,
.LigaRefacturacion = "",
.IrARefacturar = False
}
Dim sb = New StringBuilder()
Dim CancelacionAcuse As String = ""
Dim CancelacionFecha As DateTime = NowADS()
Dim CveEstatus As Integer = 4
Try
Dim resp = Timbrado.VerificarVigenciaSAT(uuid, UsuarioActual.Empresa.RFC, receptor, total, True)
If resp IsNot Nothing Then
If resp.Estado Is Nothing Then
sb.Append("No se pudo comprobar el estado de la factura. El servicio del sat no esta disponible")
retorno.Mensaje = sb.ToString()
Return retorno
End If
sb.AppendFormat("Folio Fiscal: {0} <br/>", uuid)
sb.AppendFormat("Código Estado: {0} <br/>", resp.CodigoEstatus)
sb.AppendFormat("Estado: {0} <br/>", resp.Estado)
sb.AppendFormat("Es Cancelable: {0} <br/>", If(String.IsNullOrEmpty(resp.EsCancelable), "Desconocido", resp.EsCancelable))
sb.AppendFormat("Estatus de Cancelación: {0} <br/><br/>", If(String.IsNullOrEmpty(resp.EsCancelable), "Desconocido", resp.EstatusCancelacion))
If Not UsuarioActual.Empresa.FacturaProduccion AndAlso (String.IsNullOrEmpty(uuid) OrElse uuid.Contains("test")) Then
Dim respCancelacion = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC, EsRefacturacion:=EsRefacturacion, FolioSustitucion:=FolioSustitucion, CveMotivoCancelacion:=CveMotivoSustitucion)
If Not respCancelacion.HuboError Then
CveEstatus = respCancelacion.CveEstatus
retorno.EnviarAcuse = True
sb.Append("El documento se canceló correctamente.")
sb.Append($"</br> <a href='/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=CAN&CVEVTA={CveVenta}")}' class='Texto' target='_blank'>Imprimir Acuse</a>")
If Not EsRefacturacion Then
sb.Append("</br></br> ¿Desea enviar el Acuse de Cancelación al Cliente?")
End If
End If
Else
If EsRefacturacion AndAlso CveEstatusFactura = 20 AndAlso resp.Estado.ToUpper().Trim() = "VIGENTE" AndAlso String.IsNullOrEmpty(resp.EstatusCancelacion) Then
CveEstatus = 23
Dim ObjVentas = New ClsVentas()
If ObjVentas.UpdateEstatusVenta(CveVenta, CveEstatus, UsuarioActual.CveEmpresa) Then
sb.Append("El estatus de la factura fue cambiado a 'Cancelación Pendiente'.")
Else
sb.Append("Ocurrió un error al cambiar el estatus de la factura.")
End If
ObjVentas.Dispose()
ElseIf resp.Estado.ToUpper().Trim() = "CANCELADO" OrElse resp.EstatusCancelacion.ToUpper() = "PLAZO VENCIDO" Then
CveEstatus = 5
Dim respCancelacion = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC, EsRefacturacion:=EsRefacturacion, FolioSustitucion:=FolioSustitucion, CveMotivoCancelacion:=CveMotivoSustitucion)
If Not respCancelacion.HuboError Then
If respCancelacion.CveEstatus > 0 Then
retorno.EnviarAcuse = True
CveEstatus = respCancelacion.CveEstatus
Dim ObjVentas = New ClsVentas()
If ObjVentas.UpdateEstatusVenta(CveVenta, CveEstatus, UsuarioActual.CveEmpresa) Then
If respCancelacion.CveEstatus = 20 Then
sb.Append("El estatus de la factura fue cambiado a 'Cancelación en proceso'.")
ElseIf respCancelacion.CveEstatus = 23 Then
sb.Append("La solicitud de cancelación no la aplicó el SAT, intente cancelar de nuevo.<br/>")
sb.AppendFormat("Folio Fiscal: {0} <br/>", uuid)
sb.AppendFormat("Código Estado: {0} <br/>", resp.CodigoEstatus)
sb.AppendFormat("Estado: {0} <br/>", resp.Estado)
sb.AppendFormat("Es Cancelable: {0} <br/>", If(String.IsNullOrEmpty(resp.EsCancelable), "Desconocido", resp.EsCancelable))
sb.AppendFormat("Estatus de Cancelación: {0} <br/><br/>", If(String.IsNullOrEmpty(resp.EsCancelable), "Desconocido", resp.EstatusCancelacion))
Else
sb.Append("El estatus de la factura fue cambiado a 'Cancelada'.")
End If
Else
sb.Append("Ocurrió un error al cambiar el estatus de la factura.")
End If
ObjVentas.Dispose()
sb.Append("El documento se canceló correctamente.")
sb.Append($"</br> <a href='/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=CAN&CVEVTA={CveVenta}")}' class='Texto' target='_blank'>Imprimir Acuse</a>")
If Not EsRefacturacion Then
sb.Append("</br></br> ¿Desea enviar el Acuse de Cancelación al Cliente?")
End If
Else
sb.Append(respCancelacion.Mensaje)
End If
End If
ElseIf resp.EstatusCancelacion.ToUpper() = "SOLICITUD RECHAZADA" Then
CveEstatus = 3
Dim Estatus As String = "Emitida"
If EsRefacturacion Then
CveEstatus = 23
Estatus = "Cancelación pendiente"
End If
Dim ObjVentas = New ClsVentas()
If ObjVentas.UpdateEstatusVenta(CveVenta, CveEstatus, UsuarioActual.CveEmpresa) Then
sb.Append($"El estatus de la factura fue cambiado a '{Estatus}'.")
Else
sb.Append("Ocurrió un error al cambiar el estatus de la factura.")
End If
ObjVentas.Dispose()
ElseIf resp.Estado.ToUpper().Trim() = "VIGENTE" AndAlso String.IsNullOrEmpty(resp.EstatusCancelacion) AndAlso Not EsRefacturacion Then
CveEstatus = 3
Dim Estatus As String = "Emitida"
If EsRefacturacion Then
CveEstatus = 23
Estatus = "Cancelación pendiente"
End If
Dim ObjVentas = New ClsVentas()
If ObjVentas.UpdateEstatusVenta(CveVenta, CveEstatus, UsuarioActual.CveEmpresa) Then
sb.Append($"El estatus de la factura fue cambiado a '{Estatus}'.")
Else
sb.Append("Ocurrió un error al cambiar el estatus de la factura.")
End If
ObjVentas.Dispose()
ElseIf (resp.EsCancelable.ToUpper() = "NO CANCELABLE") Then
sb.Append("Esta factura no es cancelable.")
retorno.Mensaje = sb.ToString()
Return retorno
End If
End If
Else
sb.Append("No se pudo comprobar la vigencia de la factura.")
retorno.Mensaje = sb.ToString()
Return retorno
End If
Catch ex As Exception
sb.Append("Error al consumir el servicio: " & ex.Message)
retorno.Mensaje = sb.ToString()
Return retorno
End Try
retorno.CveEstatus = CveEstatus
retorno.Mensaje = sb.ToString()
Return retorno
End Function
Private Function CancelarDocumento(ByVal CveVenta As Integer, ByVal CveEstatus As Integer, ByVal CveCliente As Integer, ByVal Folio As String, ByVal FolioFiscal As String, ByVal CancelacionAcuse As String, ByVal CancelacionFecha As DateTime, ByVal TipoComprobante As String, ByVal Total As Double, ByVal CvePACCancelacion As Integer, ByVal Optional EsRefacturacion As Boolean = False, ByVal Optional FolioSustitucion As String = "", ByVal Optional CveEstatusRefacturacion As Integer = 0, ByVal Optional CveMotivoCancelacion As Integer = 0) As Modelos.Factura.MCancelacionVentaMensaje
Dim retorno As Modelos.Factura.MCancelacionVentaMensaje = Nothing
Dim factura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=True, VerificaAlmacen:=True)
If factura.ErrorList.Count > 0 Then
retorno.HuboError = True
Return retorno
End If
If EsRefacturacion Then
If Not String.IsNullOrEmpty(FolioSustitucion) Then
CveEstatusRefacturacion = 2
End If
If CveEstatusRefacturacion > 0 Then
factura.CveEstatusRefacturacion = CveEstatusRefacturacion
End If
If CveMotivoCancelacion > 0 Then
factura.CveMotivoCancelacion = CveMotivoCancelacion
End If
Dim CveEstatusFactura As Integer = -1
If CveEstatus = 5 Then
CveEstatusFactura = CveEstatus
End If
If CveEstatus = -2 Then
CveEstatusFactura = -1
End If
retorno = factura.CancelarPorRefacturacion(factura.CveMotivoCancelacion, factura.MotivoCancelacion, FolioSustitucion:=FolioSustitucion, CveEstadoCancelacion:=CveEstatusFactura)
Else
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso factura.TipoDocto = "Dev" AndAlso factura.SaldoAlmacen <> 0 Then
factura.RealizarDevolucionAlmacen = 1
End If
If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Dev") AndAlso factura.SaldoAlmacen <> 0 Then
factura.RealizarDevolucionAlmacen = 1
End If
If UsuarioActual.TienePermisoProceso(269) AndAlso factura.TipoDocto.Contiene("Ing", "Dev") AndAlso factura.SaldoAlmacen <> 0 Then
factura.RealizarDevolucionAlmacen = 1
End If
If factura.TipoDocto = "Ing" Then
Using ObjVentas = New ClsVentas()
If ObjVentas.GetRemisionesRelacionadas(CveVenta, factura.TipoDocto) Then
If ObjVentas.DtResultados.Copy().Rows.Count > 0 Then
factura.RealizarDevolucionAlmacen = 1
End If
Else
retorno = New Modelos.Factura.MCancelacionVentaMensaje()
retorno.Mensaje = "No se pudo verificar si tiene remisiones relacionadas"
retorno.HuboError = True
Return retorno
End If
End Using
End If
Dim CancelacionPagos = Modelos.OpcionesCancelacionPagos.SinPagos
If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
CancelacionPagos = Modelos.OpcionesCancelacionPagos.ConPagos_CancelarIE
End If
retorno = factura.EjecutarCancelacionPendiente(CveEstatus, CancelacionFecha, CancelacionAcuse, CancelacionPagos:=CancelacionPagos)
End If
Return retorno
End Function
Protected Sub GvCancelaciones_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
Dim gv As GridView = CType(sender, GridView)
If Not (e.Row.DBCampo("PuedeRefacturar").ToEntero() = 0 OrElse Not String.IsNullOrEmpty(e.Row.DBCampo("FolioFiscalSustitucion"))) Then
e.Row.FCHyperLink("HplRefact").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", e.Row.DBCampo("CveVenta"))
e.Row.FCHyperLink("HplRefact").Visible = True
End If
If e.Row.DBCampo("CveEstatusRefacturacion") = "4" AndAlso gv.ID = "GvDatos" Then
e.Row.FCLinkButton("BtnValidar").Text = "<i class='fa fa-check'>02</i>"
e.Row.FCLinkButton("BtnValidar").CssClass = "btn btn-circle btn-sm blue"
End If
If e.Row.DBCampo("PuedeRefacturar") = "0" AndAlso e.Row.DBCampo("CveEstatusFactura") = "23" AndAlso e.Row.DBCampo("CveVentaSustitucion").ToEntero() > 0 Then
If e.Row.FCLinkButton("LnkCancelar") IsNot Nothing Then e.Row.FCLinkButton("LnkCancelar").Visible = True
End If
End If
End Sub
Public Sub BtnEnviarMailCancelacion_Click(ByVal sender As Object, ByVal e As EventArgs)
If CveVentaCancelacion > 0 Then
ImprimeCancelacion(CveVentaCancelacion)
Else
Alert("No se encontro la factura para enviar el acuse", TipoMensaje.MsgAdvertencia)
End If
End Sub
Public Sub ImprimeCancelacion(ByVal CveVenta As Integer)
Dim Archivo = New System.IO.FileInfo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\AcuseCancelacion.rdlc")
If Archivo.Exists Then
Dim ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, CargaDTDetalle:=False, CargaDatosRelacionados:=False)
Dim ObjetoPDF As Byte() = DescargarPDF(Encripta(String.Format("OP=CAN&CVEVTA={0}", CveVenta)))
Dim LSRutasMail As List(Of ClsSisMail.ArchivoMail) = New List(Of ClsSisMail.ArchivoMail)()
Dim Asunto As String = String.Empty
Dim Cuerpo As String = String.Empty
Dim sb As StringBuilder = New StringBuilder()
sb.Append("<!DOCTYPE html>")
sb.Append("<html>")
sb.Append("<head>")
sb.Append("<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8""/>")
sb.Append(" <title>Acuse De Cancelación</title>")
sb.Append(vbTab & "<meta charset=""utf-8"" />")
sb.Append("</head>")
sb.Append("<body>")
sb.Append(" <font face=""calibri"">")
sb.Append($" Estimado Cliente <b>{ObjFactura.Cliente.Nombre}</b>,<br /><br />")
sb.Append($" A través del presente medio la Empresa <b>{UsuarioActual.Empresa.Empresa} - {UsuarioActual.Empresa.RFC}</b>, canceló el documento tipo <b>{ObjFactura.TipodeComprobante}</b> <br />")
sb.Append($" con folio <b>{ObjFactura.SerieFolio}</b> y el Importe de <b>${ObjFactura.Total}</b>. <br /><br />")
sb.Append(" Le hacemos llegar el acuse de cancelación. </font> ")
sb.Append(" <font face=""calibri"" size=""2"">")
sb.Append(" <br /><br /><br /><br /><br />")
sb.Append(" <i>Este correo se generó automaticamente, favor de no responder este mensaje.</i>")
sb.Append(" </font>")
sb.Append("</body>")
sb.Append("</html>")
Asunto = $"Acuse de Cancelacion {ObjFactura.SerieFolio}"
Cuerpo = sb.ToString()
Dim DisplayName As String = ""
LSRutasMail.Add(New ClsSisMail.ArchivoMail() With {
.ArchivoBinario = ObjetoPDF,
.NombreArchivo = $"AcuseCancelacion{ObjFactura.SerieFolio}.pdf"
})
Dim ObjMail As ClsSisMail = New ClsSisMail()
If ObjMail.SendMail(UsuarioActual.Empresa, ObjFactura.Cliente.Mail, Asunto, Cuerpo, "", LSRutasMail, Displayname:=DisplayName) Then
Alert("El acuse de cancelación ha sido envíado correctamente.")
Else
Alert("El acuse de cancelación no pudo ser enviado.", TipoMensaje.MsgError)
End If
End If
End Sub
Private Function DescargarPDF(Parametros As String) As Byte()
Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", ClsPaginas.UrlSitio, Parametros))
Dim File As Byte() = Nothing
Try
Using httpClient = New HttpClient()
httpClient.Timeout = New TimeSpan(0, 1, 0)
Using request = New HttpRequestMessage(HttpMethod.Get, Url)
request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CVEUSUARIO={2}", UsuarioActual.CveEmpresa, DateTime.UtcNow.Ticks, UsuarioActual.CveUsuario)))
Dim response = httpClient.SendAsync(request).Result
If response.StatusCode = Net.HttpStatusCode.OK Then
File = response.Content.ReadAsByteArrayAsync().Result
End If
End Using
End Using
Catch ex As Exception
File = Nothing
OnError("Ocurrió un error al descargar la factura", ex)
End Try
Return File
End Function
#End Region
End Class
Public Class MRespuestaSAT
Public Property CveEstatus As Integer
Public Property EnviarAcuse As Boolean
Public Property LigaRefacturacion As String
Public Property IrARefacturar As Boolean
Public Property Mensaje As String
End Class

2
Ventas/Ventas.aspx
View File

@@ -1983,6 +1983,7 @@
<HeaderTemplate>Producto</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
<asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("CodigoPS") %>' Visible="false" Target="_blank"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Serie" Visible="false">
@@ -2051,6 +2052,7 @@
<HeaderTemplate>Producto o Servicio</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("PS") %>'></asp:Literal>
<asp:HyperLink ID="HlPS" runat="server" Text='<%# Eval("PS") %>' Visible="false" Target="_blank"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>

20
Ventas/Ventas.aspx.vb
View File

@@ -2387,7 +2387,18 @@ Partial Class Ventas
End Set
End Property
Private Property TienePermisoKardex As Boolean
Get
If ViewState("TienePermisoKardex") Is Nothing Then
ViewState("TienePermisoKardex") = False
End If
Return Boolean.Parse(ViewState("TienePermisoKardex").ToString)
End Get
Set(value As Boolean)
ViewState("TienePermisoKardex") = value
End Set
End Property
#Region "VENTA MEDICA"
@@ -2446,6 +2457,8 @@ Partial Class Ventas
Exit Sub
End If
TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
Modalidad = ""
Opcion = ""
Index = 0
@@ -9515,6 +9528,7 @@ Partial Class Ventas
e.Row.CssClass = "SubTotales"
End If
Else
Dim tFecha As Date = If(e.Row.DBCampo("Fecha") <> "", e.Row.DBCampo("Fecha").ToDate, NowADS())
e.Row.FCLiteral("LtlPS").Text = String.Format("<a Class='Texto' target='_blank' href='/Inventarios/Kardex.aspx?CvePS={0}&CveAlmacen={1}&FechaI={2}&FechaF={3}'> {4}</a>", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveAlmacen"), tFecha.AddDays(-7).ToShortDateString, tFecha.AddDays(7).ToShortDateString, e.Row.DBCampo("PS"))
@@ -9536,6 +9550,12 @@ Partial Class Ventas
End If
End If
If TienePermisoKardex Then
e.Row.FCLiteral("LtlPS").Visible = False
e.Row.FCHyperLink("HlPS").Visible = True
e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DBCampo("CvePS").ToString}"
End If
End If
If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not AplicaDevolucion Then