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

SMS - 2024.02.20 Retro

Browse Source
This commit is contained in:
rakcsle
2024-02-21 11:48:48 -07:00
parent 9eec8a8bc8
commit 81612cd980
4 changed files with 32 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Empresas/186/Formatos/Factura.mrt
View File

@@ -1481,7 +1481,7 @@ Sello digital del SAT:
<ClientRectangle>0,2.68,14.6,0.8</ClientRectangle> <ClientRectangle>0,2.68,14.6,0.8</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Regular,Point,False,0</Font> <Font>Myriad Pro,8,Regular,Point,False,0</Font>
<Guid>179a957f89d04921b856805a4c2e9d49</Guid> <Guid>179a957f89d04921b856805a4c2e9d49</Guid>
<Margins>0,0,0,0</Margins> <Margins>0,0,0,0</Margins>
<Name>Text9</Name> <Name>Text9</Name>
@@ -1542,7 +1542,7 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
<ReportAlias>Factura</ReportAlias> <ReportAlias>Factura</ReportAlias>
<ReportChanged>1/18/2024 9:39:09 AM</ReportChanged> <ReportChanged>1/18/2024 9:39:09 AM</ReportChanged>
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated> <ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
<ReportFile>Factura.mrt</ReportFile> <ReportFile>C:\inetpub\WWWSigGit\Empresas\186\Formatos\Factura.mrt</ReportFile>
<ReportGuid>4a902ea660c34d0baeae36e92ea35edd</ReportGuid> <ReportGuid>4a902ea660c34d0baeae36e92ea35edd</ReportGuid>
<ReportName>Factura</ReportName> <ReportName>Factura</ReportName>
<ReportUnit>Centimeters</ReportUnit> <ReportUnit>Centimeters</ReportUnit>

2
Empresas/186/Formatos/Pedido.mrt
View File

@@ -1056,7 +1056,7 @@ Fecha Cirugia: {FechaCirugia}</Text>
<ClientRectangle>0,2.48,13.2,0.8</ClientRectangle> <ClientRectangle>0,2.48,13.2,0.8</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Regular,Point,False,0</Font> <Font>Myriad Pro,8,Regular,Point,False,0</Font>
<Guid>1891a87e013d48868bd75b5710529e30</Guid> <Guid>1891a87e013d48868bd75b5710529e30</Guid>
<Margins>0,0,0,0</Margins> <Margins>0,0,0,0</Margins>
<Name>Text13</Name> <Name>Text13</Name>

4
Empresas/186/Formatos/Remision.mrt
View File

@@ -1080,7 +1080,7 @@ Vendedor: {VendedorNombre}</Text>
<ClientRectangle>0,2.48,10.6,1</ClientRectangle> <ClientRectangle>0,2.48,10.6,1</ClientRectangle>
<Conditions isList="true" count="0" /> <Conditions isList="true" count="0" />
<Expressions isList="true" count="0" /> <Expressions isList="true" count="0" />
<Font>Myriad Pro,9,Regular,Point,False,0</Font> <Font>Myriad Pro,8,Regular,Point,False,0</Font>
<Guid>fca703f575e74a9f8bc6628424c9a960</Guid> <Guid>fca703f575e74a9f8bc6628424c9a960</Guid>
<Margins>0,0,0,0</Margins> <Margins>0,0,0,0</Margins>
<Name>Text13</Name> <Name>Text13</Name>
@@ -1138,7 +1138,7 @@ Episodio: {Episodio}</Text>
<ReportAlias>Report</ReportAlias> <ReportAlias>Report</ReportAlias>
<ReportChanged>10/11/2022 8:18:55 PM</ReportChanged> <ReportChanged>10/11/2022 8:18:55 PM</ReportChanged>
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated> <ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
<ReportFile>Remision.mrt</ReportFile> <ReportFile>C:\inetpub\WWWSigGit\Empresas\186\Formatos\Remision.mrt</ReportFile>
<ReportGuid>49b2dec77fe542ea952b501bf54fafb1</ReportGuid> <ReportGuid>49b2dec77fe542ea952b501bf54fafb1</ReportGuid>
<ReportName>Report</ReportName> <ReportName>Report</ReportName>
<ReportUnit>Centimeters</ReportUnit> <ReportUnit>Centimeters</ReportUnit>

35
Ventas/Ventas.aspx.vb
View File

@@ -13319,14 +13319,26 @@ Partial Class Ventas
End If End If
End If End If
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica AndAlso RBLTipoVenta.SelectedValue.ToEntero <> 2 Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then
CveAlmacenTraspasoDestino = CveAlmacenAsignado
If RBLTipoVenta.SelectedValue.ToEntero = 2 Then
If Not ChkRequiereTecnico.Checked Then
CveAlmacenTraspasoDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString().ToEntero()
End If
If CveAlmacenTraspasoDestino <= 0 Then
ErrorList.Add("Ocurrió un error al seleccionar el almacen de entrega por adelantado.")
End If
If CveAlmacenAsignado <= 0 Then
ErrorList.Add("Ocurrió un error al seleccionar el almacen de resguardo del cliente.")
Else Else
CveAlmacenTraspasoDestino = CveAlmacenAsignado If CveAlmacenTraspasoDestino <= 0 Then
ErrorList.Add("Ocurrió un error al seleccionar el almacen de resguardo del cliente.")
End If
End If End If
End If End If
Dim TotalImpuestoLocal As Double = 0 Dim TotalImpuestoLocal As Double = 0
@@ -13398,6 +13410,7 @@ Partial Class Ventas
CveMedico = DdlMedico.SelectedValue.ToEntero CveMedico = DdlMedico.SelectedValue.ToEntero
CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero
CveTipoVentaGuardar = If(SeEstaFActurandoVentaMedica, CveTipoVenta, RBLTipoVenta.SelectedValue.ToEntero) CveTipoVentaGuardar = If(SeEstaFActurandoVentaMedica, CveTipoVenta, RBLTipoVenta.SelectedValue.ToEntero)
'CveAlmacenTraspasoDestino
End If End If
@@ -36415,7 +36428,7 @@ Partial Class Ventas
DvModalRequiereOSFecha.Visible = True DvModalRequiereOSFecha.Visible = True
Case "2" ' Pago Directo Case "2" ' Pago Directo
ChkRequiereTecnicoModal.Checked = True ChkRequiereTecnicoModal.Checked = True
ChkRequiereTecnicoModal.Enabled = False ChkRequiereTecnicoModal.Enabled = True
DvModalRequiereOSFecha.Visible = True DvModalRequiereOSFecha.Visible = True
DvModalTipoVentaCliente.Visible = True DvModalTipoVentaCliente.Visible = True
Case "3" 'A-Vista Case "3" 'A-Vista
@@ -36617,15 +36630,21 @@ Partial Class Ventas
If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es pago directo es factura If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es pago directo es factura
'DdlTipoComprobante.SelectedValueExist("Ing") 'DdlTipoComprobante.SelectedValueExist("Ing")
DdlTipoComprobante.SelectedValueExist("Ped")
TrVentasMedicas1.Visible = True TrVentasMedicas1.Visible = True
TrVentasMedicas2.Visible = True TrVentasMedicas2.Visible = True
TdFechaOS1.Visible = True TdFechaOS1.Visible = True
TdFechaOS2.Visible = True TdFechaOS2.Visible = True
ChkRequiereTecnico.Checked = True ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked
ChkRequiereTecnico.Enabled = False ChkRequiereTecnico.Enabled = True
If ChkRequiereTecnico.Checked Then
DdlTipoComprobante.SelectedValueExist("Ped")
Else
DdlTipoComprobante.SelectedValueExist("Rem")
End If
ElseIf RBLTipoVenta.SelectedValue.Contiene("3") Then ' A vista ElseIf RBLTipoVenta.SelectedValue.Contiene("3") Then ' A vista
DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped")) DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))