SMS - 2024.02.20 Retro

Empresas/186/Formatos/Factura.mrt

@@ -1481,7 +1481,7 @@ Sello digital  del SAT:
               <ClientRectangle>0,2.68,14.6,0.8</ClientRectangle>
               <Conditions 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>
               <Margins>0,0,0,0</Margins>
               <Name>Text9</Name>
@@ -1542,7 +1542,7 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
   <ReportAlias>Factura</ReportAlias>
   <ReportChanged>1/18/2024 9:39:09 AM</ReportChanged>
   <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>
   <ReportName>Factura</ReportName>
   <ReportUnit>Centimeters</ReportUnit>

Empresas/186/Formatos/Pedido.mrt

@@ -1056,7 +1056,7 @@ Fecha Cirugia:  {FechaCirugia}</Text>
                       <ClientRectangle>0,2.48,13.2,0.8</ClientRectangle>
                       <Conditions 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>
                       <Margins>0,0,0,0</Margins>
                       <Name>Text13</Name>

Empresas/186/Formatos/Remision.mrt

@@ -1080,7 +1080,7 @@ Vendedor: {VendedorNombre}</Text>
                       <ClientRectangle>0,2.48,10.6,1</ClientRectangle>
                       <Conditions 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>
                       <Margins>0,0,0,0</Margins>
                       <Name>Text13</Name>
@@ -1138,7 +1138,7 @@ Episodio: {Episodio}</Text>
   <ReportAlias>Report</ReportAlias>
   <ReportChanged>10/11/2022 8:18:55 PM</ReportChanged>
   <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>
   <ReportName>Report</ReportName>
   <ReportUnit>Centimeters</ReportUnit>

Ventas/Ventas.aspx.vb

@@ -13319,14 +13319,26 @@ Partial Class Ventas
             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
-                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
 
         Dim TotalImpuestoLocal As Double = 0
@@ -13398,6 +13410,7 @@ Partial Class Ventas
             CveMedico = DdlMedico.SelectedValue.ToEntero
             CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero
             CveTipoVentaGuardar = If(SeEstaFActurandoVentaMedica, CveTipoVenta, RBLTipoVenta.SelectedValue.ToEntero)
+            'CveAlmacenTraspasoDestino
         End If
 
 
@@ -36415,7 +36428,7 @@ Partial Class Ventas
                     DvModalRequiereOSFecha.Visible = True
                 Case "2" ' Pago Directo
                     ChkRequiereTecnicoModal.Checked = True
-                    ChkRequiereTecnicoModal.Enabled = False
+                    ChkRequiereTecnicoModal.Enabled = True
                     DvModalRequiereOSFecha.Visible = True
                     DvModalTipoVentaCliente.Visible = True
                 Case "3" 'A-Vista
@@ -36617,15 +36630,21 @@ Partial Class Ventas
 
         If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es  pago directo es factura
             'DdlTipoComprobante.SelectedValueExist("Ing")
-            DdlTipoComprobante.SelectedValueExist("Ped")
 
             TrVentasMedicas1.Visible = True
             TrVentasMedicas2.Visible = True
 
             TdFechaOS1.Visible = True
             TdFechaOS2.Visible = True
-            ChkRequiereTecnico.Checked = True
-            ChkRequiereTecnico.Enabled = False
+            ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked
+            ChkRequiereTecnico.Enabled = True
+
+            If ChkRequiereTecnico.Checked Then
+                DdlTipoComprobante.SelectedValueExist("Ped")
+            Else
+                DdlTipoComprobante.SelectedValueExist("Rem")
+            End If
+
 
         ElseIf RBLTipoVenta.SelectedValue.Contiene("3") Then ' A vista
             DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))