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
2022-06-02 11:55:07 -07:00
parent e731464ae1 33a3bd1ae1
commit 101edc24c5
10 changed files with 230 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
App_Code/ClsInventarios.vb
View File

@@ -5600,7 +5600,13 @@ Public Class ClsInventarios
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al momento de insertar el nuevo camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
If ex.Message.Contains("UN_Inv_Camiones_CveEmpresa_Placa") Then
Alert("La Placa ya se encuentra registrada." & Almacen & ".", TipoMensaje.MsgAdvertencia)
Else
OnError("Ocurrió un error al momento de insertar el nuevo camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
End Try
Return Retorno
End Function
@@ -5654,7 +5660,15 @@ Public Class ClsInventarios
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al momento de actualizar el camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
If ex.Message.Contains("UN_Inv_Camiones_CveEmpresa_Placa") Then
Alert("La Placa ya se encuentra registrada." & Almacen & ".", TipoMensaje.MsgAdvertencia)
Else
OnError("Ocurrió un error al momento de actualizar el camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
End Try
Return Retorno
End Function

13
Empresas/119/Formatos/Cotizacion.rdlc
View File

@@ -1212,7 +1212,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
</TablixCells>
@@ -2853,6 +2852,18 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RegimenFiscalCodigo">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<EmbeddedImages>
<EmbeddedImage Name="compuescuadron">

100
Empresas/119/Formatos/Factura.rdlc
View File

@@ -552,7 +552,7 @@
<BreakLocation>Start</BreakLocation>
</PageBreak>
<KeepTogether>true</KeepTogether>
<Top>7.78895in</Top>
<Top>7.66395in</Top>
<Left>0.18226in</Left>
<Height>4.422in</Height>
<Width>7.87128in</Width>
@@ -882,7 +882,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Regimen fiscal: </Value>
<Value>Reg.fiscal: </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize>
@@ -901,7 +901,7 @@
<Value>=Parameters!RegimenFiscalCodigo.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize>
<FontSize>8pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
@@ -1150,7 +1150,7 @@
</Image>
</ReportItems>
<KeepTogether>true</KeepTogether>
<Top>3.57076in</Top>
<Top>3.44576in</Top>
<Left>0.02339in</Left>
<Height>1.21305in</Height>
<Width>8.22763in</Width>
@@ -1243,12 +1243,33 @@
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Regimen General de Ley Personas Morales</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6.7pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>6.7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox32</rd:DefaultName>
<Top>2.84726cm</Top>
<Left>0.08425cm</Left>
<Height>2.1447cm</Height>
<Width>4.08234cm</Width>
<Height>2.50687cm</Height>
<Width>4.12431cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
@@ -1500,29 +1521,13 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Régimen fiscal: </Value>
<Value />
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8.7pt</FontSize>
<FontWeight>SemiBold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>Regimen General de Ley Personas Morales</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8.7pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8.7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
@@ -1532,7 +1537,7 @@
<rd:DefaultName>Textbox4</rd:DefaultName>
<Top>0.05022in</Top>
<Left>5.05067in</Left>
<Height>1.62345in</Height>
<Height>1.31095in</Height>
<Width>3.21285in</Width>
<ZIndex>4</ZIndex>
<Style>
@@ -1642,9 +1647,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox40</rd:DefaultName>
<Top>4.25cm</Top>
<Top>3.615cm</Top>
<Left>13.26812cm</Left>
<Height>1.42163cm</Height>
<Height>1.61889cm</Height>
<Width>7.72123cm</Width>
<ZIndex>5</ZIndex>
<Style>
@@ -2240,7 +2245,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -2324,7 +2328,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=iif(cdbl(Fields!ImporteIVA.Value) &gt; 0, Fields!ImporteIVA.Value &amp; "(" &amp; cdbl(Fields!PorcentajeIVA.Value) * 100 &amp; "%)","")</Value>
<Value>=iif(cdbl(Fields!ImporteIVA.Value) &gt; 0, Format(Fields!ImporteIVA.Value,"###,###,###.00") &amp; "(" &amp; cdbl(Fields!PorcentajeIVA.Value) * 100 &amp; "%)","")</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>7.5pt</FontSize>
@@ -2453,7 +2457,7 @@
</TablixMembers>
</TablixRowHierarchy>
<DataSetName>DsOC</DataSetName>
<Top>2.25503in</Top>
<Top>2.13003in</Top>
<Left>0.04048in</Left>
<Height>0.34081in</Height>
<Width>8.21054in</Width>
@@ -2479,7 +2483,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>6.77831cm</Top>
<Top>6.46081cm</Top>
<Left>0.10282cm</Left>
<Height>0.14316cm</Height>
<Width>20.88652cm</Width>
@@ -2512,7 +2516,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>7.54968cm</Top>
<Top>7.23218cm</Top>
<Left>15.05252cm</Left>
<Height>0.14316cm</Height>
<Width>5.93682cm</Width>
@@ -2549,7 +2553,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>ImporteLetra</rd:DefaultName>
<Top>3.07034in</Top>
<Top>2.94534in</Top>
<Left>2.02374in</Left>
<Height>0.18861in</Height>
<Width>6.23978in</Width>
@@ -2579,7 +2583,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>8.43074cm</Top>
<Top>8.11324cm</Top>
<Left>0.07107cm</Left>
<Height>0.1cm</Height>
<Width>20.88652cm</Width>
@@ -2610,7 +2614,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>12.32551cm</Top>
<Top>12.00801cm</Top>
<Left>0.10282cm</Left>
<Height>0.14316cm</Height>
<Width>20.85477cm</Width>
@@ -2644,7 +2648,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>7.0273cm</Top>
<Top>6.7098cm</Top>
<Left>5.1403cm</Left>
<Height>0.34219cm</Height>
<Width>9.73903cm</Width>
@@ -2762,7 +2766,7 @@
</TablixMembers>
</TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName>
<Top>6.99203cm</Top>
<Top>6.67453cm</Top>
<Left>15.05252cm</Left>
<Height>0.48004cm</Height>
<Width>5.93682cm</Width>
@@ -3224,7 +3228,7 @@
</Tablix>
</ReportItems>
<KeepTogether>true</KeepTogether>
<Top>14.85441cm</Top>
<Top>14.53691cm</Top>
<Left>0.10282cm</Left>
<Height>2.25247cm</Height>
<Width>20.89818cm</Width>
@@ -3282,7 +3286,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>8.5629cm</Top>
<Top>8.2454cm</Top>
<Left>0.10282cm</Left>
<Height>0.34219cm</Height>
<Width>20.85477cm</Width>
@@ -3567,7 +3571,7 @@
</TablixMembers>
</TablixRowHierarchy>
<DataSetName>DataSet3</DataSetName>
<Top>7.0273cm</Top>
<Top>6.7098cm</Top>
<Left>0.10282cm</Left>
<Height>0.85604cm</Height>
<Width>4.74643cm</Width>
@@ -3690,7 +3694,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>12.64506cm</Top>
<Top>12.32756cm</Top>
<Left>0.10282cm</Left>
<Height>2.03296cm</Height>
<Width>3.74249cm</Width>
@@ -3781,7 +3785,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>12.64506cm</Top>
<Top>12.32756cm</Top>
<Left>3.84531cm</Left>
<Height>2.03295cm</Height>
<Width>5.75197cm</Width>
@@ -3906,7 +3910,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>12.64506cm</Top>
<Top>12.32756cm</Top>
<Left>9.70311cm</Left>
<Height>2.03295cm</Height>
<Width>4.17266cm</Width>
@@ -3997,7 +4001,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>12.64506cm</Top>
<Top>12.32756cm</Top>
<Left>13.87577cm</Left>
<Height>2.03294cm</Height>
<Width>6.94061cm</Width>
@@ -4041,10 +4045,10 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>17.20919cm</Top>
<Left>17.68079cm</Left>
<Height>0.6cm</Height>
<Width>3.32021cm</Width>
<Top>16.89169cm</Top>
<Left>17.31584cm</Left>
<Height>0.65292cm</Height>
<Width>3.68516cm</Width>
<ZIndex>22</ZIndex>
<Style>
<Border>
@@ -4057,7 +4061,7 @@
</Style>
</Textbox>
</ReportItems>
<Height>31.01581cm</Height>
<Height>30.69831cm</Height>
<Style>
<Border>
<Style>None</Style>

13
Empresas/119/Formatos/Remision.rdlc
View File

@@ -791,7 +791,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -2334,6 +2333,18 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RegimenFiscalCodigo">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<EmbeddedImages>
<EmbeddedImage Name="Logo119">

5
Empresas/140/Formatos/Cotizacion.rdlc
View File

@@ -297,7 +297,7 @@
<TextRun>
<Value>=Parameters!Serie.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>12pt</FontSize>
<FontWeight>Bold</FontWeight>
<Color>Red</Color>
</Style>
@@ -313,7 +313,7 @@
<TextRun>
<Value>=Parameters!Folio.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>12pt</FontSize>
<FontWeight>Bold</FontWeight>
<Color>Red</Color>
</Style>
@@ -1214,7 +1214,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>

4
Empresas/140/Formatos/Factura.rdlc
View File

@@ -646,7 +646,7 @@
<TextRun>
<Value>=Parameters!Serie.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>12pt</FontSize>
<FontWeight>Bold</FontWeight>
<Color>Red</Color>
</Style>
@@ -670,7 +670,7 @@
<TextRun>
<Value>=Parameters!Folio.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>12pt</FontSize>
<FontWeight>Bold</FontWeight>
<Color>Red</Color>
</Style>

4
Empresas/140/Formatos/Remision.rdlc
View File

@@ -446,7 +446,7 @@
<TextRun>
<Value>=Parameters!Serie.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>12pt</FontSize>
<FontWeight>Bold</FontWeight>
<Color>Red</Color>
</Style>
@@ -462,7 +462,7 @@
<TextRun>
<Value>=Parameters!Folio.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>12pt</FontSize>
<FontWeight>Bold</FontWeight>
<Color>Red</Color>
</Style>

6
Inventarios/CatUnidades.aspx.vb
View File

@@ -231,11 +231,13 @@ Partial Class Inventarios_CatUnidades
If Not ErrorPrceso Then
GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
CargaDatos()
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarUnidad"))
UpDatos.Update()
End If
UpDatos.Update()
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarUnidad"))
End Sub

25
Inventarios/InventarioFisicoDetalle.aspx
View File

@@ -339,8 +339,18 @@
<asp:HiddenField ID="HfCvePS" Value="" runat="server"/>
<asp:HiddenField ID="HfCveUM" Value="" runat="server"/>
<div class="form-group form-md-line-input input-iconright" id="DivSerieEdit" runat="server">
<asp:TextBox ID="TxtSerieLote" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
<asp:TextBox ID="TxtSerieLote" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px" ClientIDMode="Static" ValidationGroup="GrpAgregaSerie" ></asp:TextBox>
<label for="<%= TxtSerieLote.ClientID.ToString()%>">Serie:</label>
<asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerieLote" Display="Dynamic" ClientValidationFunction="TamanioSerie"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> debe tener un minimo de 6 caracteres." ValidationGroup="GrpAgregaSerie" />
<ajax:ValidatorCalloutExtender ID="VACOE1231" runat="server" HighlightCssClass="vco" TargetControlID="ReVTxtSerie" Width="300px" ></ajax:ValidatorCalloutExtender>
</div>
<div class="form-group form-md-line-input input-iconright" id="DivLoteEdit" runat="server">
<asp:TextBox ID="TxtLoteEdit" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
@@ -361,9 +371,11 @@
</div>
<div class="modal-footer">
<asp:Button ID="BtnGuadarEditarPS" OnClick="BtnGuadarEditarPS_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpAgregaSerie" CausesValidation="true" Text="Guardar" />
<asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:LinkButton ID="BtnGuadarEditarPS" OnClick="BtnGuadarEditarPS_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i> Guardar</asp:LinkButton>
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
</asp:UpdatePanel>
@@ -417,6 +429,15 @@
$('#GvIFD').parent().parent().children().first().css("position", "static");
}
function TamanioSerie(source, arguments) {
if (arguments.Value.trim().length >= 6) {
arguments.IsValid = true;
} else {
arguments.IsValid = false;
}
}
</script>

110
Ventas/Ventas.aspx.vb
View File

@@ -2160,6 +2160,37 @@ Partial Class Ventas
ViewState("DtMercancias") = value
End Set
End Property
Private Property ClienteCodigoRegimenFiscal As String
Get
If ViewState("ClienteCodigoRegimenFiscal") Is Nothing Then
ViewState("ClienteCodigoRegimenFiscal") = ""
End If
Return ViewState("ClienteCodigoRegimenFiscal").ToString
End Get
Set(value As String)
ViewState("ClienteCodigoRegimenFiscal") = value
End Set
End Property
Private Property ClienteRegimenFiscal As String
Get
If ViewState("ClienteRegimenFiscal") Is Nothing Then
ViewState("ClienteRegimenFiscal") = ""
End If
Return ViewState("ClienteRegimenFiscal").ToString
End Get
Set(value As String)
ViewState("ClienteRegimenFiscal") = value
End Set
End Property
#End Region
'#Region "AuxiliarConta"
@@ -5990,6 +6021,9 @@ Partial Class Ventas
TieneDiasVencidos = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("TieneDiasVencidos").ToString())
DiasVencidosCliente = ObjCliente.DtResultados.Rows(0)("DiasVencidosCliente").ToString().ToEntero()
ClienteCodigoRegimenFiscal = ObjCliente.DtResultados.Rows(0)("CodigoRegimenFiscal").ToString()
ClienteRegimenFiscal = ObjCliente.DtResultados.Rows(0)("RegimenFiscal").ToString()
If EstatusCliente = False And Not DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") And (CveVenta <= 0 Or EsCreaApartirDe) Then
Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia)
BtnEmitirImprimir.Visible = EstatusCliente
@@ -9649,7 +9683,24 @@ Partial Class Ventas
ObjFacturaDevolucion.Fecha = Now
ObjFacturaDevolucion.Version = "3.3"
If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
ObjFacturaDevolucion.Version = "4.0"
If ObjFacturaDevolucion.Cliente Is Nothing Then
ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel
End If
ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal
Else
ObjFacturaDevolucion.Version = "3.3"
End If
ObjFacturaDevolucion.CveMetodoPago33 = 1
ObjFacturaDevolucion.MetodoPago33 = "Pago en una sola exhibición"
ObjFacturaDevolucion.ClaveMetodoPagoSAT = "PUE"
@@ -9931,7 +9982,20 @@ Partial Class Ventas
End If
ObjFacturaBonificacion.Fecha = Now
ObjFacturaBonificacion.Version = "3.3"
If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
ObjFacturaBonificacion.Version = "4.0"
If ObjFacturaBonificacion.Cliente Is Nothing Then
ObjFacturaBonificacion.Cliente = New Modelos.ClienteModel
End If
ObjFacturaBonificacion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
ObjFacturaBonificacion.Cliente.RegimenFiscal = ClienteRegimenFiscal
Else
ObjFacturaBonificacion.Version = "3.3"
End If
ObjFacturaBonificacion.CveMetodoPago33 = 1
ObjFacturaBonificacion.MetodoPago33 = "Pago en una sola exhibición"
ObjFacturaBonificacion.ClaveMetodoPagoSAT = "PUE"
@@ -10331,7 +10395,18 @@ Partial Class Ventas
ObjFactura = New Modelos.Factura
End If
ObjFactura.Version = "3.3"
If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
ObjFactura.Version = "4.0"
If ObjFactura.Cliente Is Nothing Then
ObjFactura.Cliente = New Modelos.ClienteModel
End If
ObjFactura.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
ObjFactura.Cliente.RegimenFiscal = ClienteRegimenFiscal
Else
ObjFactura.Version = "3.3"
End If
ObjFactura.CveUsuario = UsuarioActual.CveUsuario
ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
ObjFactura.TipoCambio = If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.Trim.ToDecimal)
@@ -11106,7 +11181,19 @@ Partial Class Ventas
ObjFacturaDevolucion.SerieFolioPadre = HdnFolioFiscalNC.Value.ToString()
ObjFacturaDevolucion.Version = "3.3"
If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
ObjFacturaDevolucion.Version = "4.0"
If ObjFacturaDevolucion.Cliente Is Nothing Then
ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel
End If
ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal
Else
ObjFacturaDevolucion.Version = "3.3"
End If
ObjFacturaDevolucion.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero()
ObjFacturaDevolucion.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero() > 0, DdlMetodoPago33.SelectedItem.Text, "")
ObjFacturaDevolucion.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
@@ -33365,7 +33452,20 @@ Partial Class Ventas
ObjFacturaProntoPago.TipoDocto = "Egs"
ObjFacturaProntoPago.Fecha = Now
ObjFacturaProntoPago.Version = "3.3"
If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
ObjFacturaProntoPago.Version = "4.0"
If ObjFacturaProntoPago.Cliente Is Nothing Then
ObjFacturaProntoPago.Cliente = New Modelos.ClienteModel
End If
ObjFacturaProntoPago.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
ObjFacturaProntoPago.Cliente.RegimenFiscal = ClienteRegimenFiscal
Else
ObjFacturaProntoPago.Version = "3.3"
End If
ObjFacturaProntoPago.CveMetodoPago33 = 1
ObjFacturaProntoPago.MetodoPago33 = "Pago en una sola exhibición"
ObjFacturaProntoPago.ClaveMetodoPagoSAT = "PUE"