agregando la validacion de chofer y los valores al reporte de carta porte

2020-01-28 12:23:37 -07:00
parent 590d0c1493
commit 84545aa5bc
2 changed files with 44 additions and 26 deletions
--- a/Empresas/Grales/Formatos/CartaPorte.rdlc
+++ b/Empresas/Grales/Formatos/CartaPorte.rdlc
@@ -80,10 +80,10 @@
        <TablixBody>
          <TablixColumns>
            <TablixColumn>
-              <Width>3.65896cm</Width>
+              <Width>3.20728cm</Width>
            </TablixColumn>
            <TablixColumn>
-              <Width>10.4809cm</Width>
+              <Width>12.42242cm</Width>
            </TablixColumn>
          </TablixColumns>
          <TablixRows>
@@ -271,7 +271,7 @@
            <TablixMember>
              <Group Name="GPO" />
              <TablixHeader>
-                <Size>2.56862cm</Size>
+                <Size>2.01883cm</Size>
                <CellContents>
                  <Textbox Name="Cantidad">
                    <CanGrow>true</CanGrow>
@@ -284,7 +284,7 @@
                            <Style>
                              <FontFamily>Myriad Pro</FontFamily>
                              <FontSize>8pt</FontSize>
-                              <Format>#,0.00</Format>
+                              <Format>#,0</Format>
                            </Style>
                          </TextRun>
                        </TextRuns>
@@ -324,7 +324,7 @@
              <TablixMembers>
                <TablixMember>
                  <TablixHeader>
-                    <Size>2.5cm</Size>
+                    <Size>1.46419cm</Size>
                    <CellContents>
                      <Textbox Name="Codigo">
                        <CanGrow>true</CanGrow>
@@ -381,10 +381,10 @@
        <RepeatColumnHeaders>true</RepeatColumnHeaders>
        <FixedColumnHeaders>true</FixedColumnHeaders>
        <DataSetName>DataSet1</DataSetName>
-        <Top>6.0914cm</Top>
+        <Top>5.46866cm</Top>
        <Left>0.21008cm</Left>
        <Height>1.14708cm</Height>
-        <Width>19.20848cm</Width>
+        <Width>19.11272cm</Width>
        <Style>
          <Border>
            <Style>None</Style>
@@ -1013,7 +1013,7 @@
          <TablixMembers>
            <TablixMember>
              <TablixHeader>
-                <Size>0.86458cm</Size>
+                <Size>0.52062cm</Size>
                <CellContents>
                  <Textbox Name="Textbox41">
                    <CanGrow>true</CanGrow>
@@ -1050,7 +1050,7 @@
            </TablixMember>
            <TablixMember>
              <TablixHeader>
-                <Size>0.86458cm</Size>
+                <Size>0.52062cm</Size>
                <CellContents>
                  <Textbox Name="Textbox32">
                    <CanGrow>true</CanGrow>
@@ -1087,7 +1087,7 @@
            </TablixMember>
            <TablixMember>
              <TablixHeader>
-                <Size>0.86458cm</Size>
+                <Size>0.52062cm</Size>
                <CellContents>
                  <Textbox Name="Textbox64">
                    <CanGrow>true</CanGrow>
@@ -1185,9 +1185,9 @@
        <RepeatColumnHeaders>true</RepeatColumnHeaders>
        <FixedColumnHeaders>true</FixedColumnHeaders>
        <DataSetName>DataSet1</DataSetName>
-        <Top>4.25682cm</Top>
+        <Top>4.17165cm</Top>
        <Left>0.21008cm</Left>
-        <Height>1.46458cm</Height>
+        <Height>1.12062cm</Height>
        <Width>19.20849cm</Width>
        <ZIndex>10</ZIndex>
        <Style>
@@ -1214,7 +1214,7 @@
          </Paragraph>
        </Paragraphs>
        <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>8.25268cm</Top>
+        <Top>7.62994cm</Top>
        <Left>0.20001cm</Left>
        <Height>0.62599cm</Height>
        <Width>19.21855cm</Width>
@@ -1267,7 +1267,7 @@
          </Paragraph>
        </Paragraphs>
        <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>8.87867cm</Top>
+        <Top>8.25593cm</Top>
        <Left>0.20001cm</Left>
        <Height>1.50794cm</Height>
        <Width>19.21855cm</Width>
@@ -1854,7 +1854,7 @@
            </TablixMember>
          </TablixMembers>
        </TablixRowHierarchy>
-        <Top>7.37959cm</Top>
+        <Top>6.75685cm</Top>
        <Left>0.21008cm</Left>
        <Height>0.6cm</Height>
        <Width>19.11272cm</Width>
@@ -2115,7 +2115,7 @@
      <PrintOnLastPage>true</PrintOnLastPage>
      <ReportItems>
        <Line Name="Line1">
-          <Top>0.03527cm</Top>
+          <Top>0.03526cm</Top>
          <Left>0.22015cm</Left>
          <Height>0cm</Height>
          <Width>19.22862cm</Width>
@@ -2145,7 +2145,7 @@
            </Paragraph>
          </Paragraphs>
          <rd:DefaultName>Textbox13</rd:DefaultName>
-          <Top>0.1411cm</Top>
+          <Top>0.14109cm</Top>
          <Left>0.22015cm</Left>
          <Height>0.54708cm</Height>
          <Width>1.55632cm</Width>
@@ -2179,7 +2179,7 @@
            </Paragraph>
          </Paragraphs>
          <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>0.1411cm</Top>
+          <Top>0.14109cm</Top>
          <Left>1.77647cm</Left>
          <Height>0.54708cm</Height>
          <Width>4.96223cm</Width>
@@ -2214,7 +2214,7 @@
            </Paragraph>
          </Paragraphs>
          <rd:DefaultName>Textbox13</rd:DefaultName>
-          <Top>0.1411cm</Top>
+          <Top>0.14109cm</Top>
          <Left>6.84454cm</Left>
          <Height>0.54708cm</Height>
          <Width>2.84562cm</Width>
@@ -2249,7 +2249,7 @@
            </Paragraph>
          </Paragraphs>
          <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>0.1411cm</Top>
+          <Top>0.14109cm</Top>
          <Left>9.69015cm</Left>
          <Height>0.54708cm</Height>
          <Width>4.68641cm</Width>
@@ -2283,7 +2283,7 @@
            </Paragraph>
          </Paragraphs>
          <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>0.17638cm</Top>
+          <Top>0.17637cm</Top>
          <Left>14.62633cm</Left>
          <Height>0.54708cm</Height>
          <Width>4.8023cm</Width>
@@ -2315,7 +2315,7 @@
            </Paragraph>
          </Paragraphs>
          <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>0.68818cm</Top>
+          <Top>0.68817cm</Top>
          <Left>0.22015cm</Left>
          <Height>0.54708cm</Height>
          <Width>6.21751cm</Width>
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -176,6 +176,14 @@ Partial Class Inventarios_TraspasoAlmacen
            ViewState("FolioBusqueda") = value
        End Set
    End Property
+    Private Property DtCamiones As DataTable
+        Get
+            Return CType(ViewState("DtCamiones"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtCamiones") = value
+        End Set
+    End Property
 #End Region

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -635,7 +643,7 @@ Partial Class Inventarios_TraspasoAlmacen

        'VALIDA TRANSITORIO
        If ChkTransitorio.Checked Then
-            If TxtResponsable.Text.Trim = "" Then
+            If TxtResponsable.Text.Trim = "" And Not UsuarioActual.CveEmpresa.Contiene(119) Then
                Alert("Debe seleccionar un responsable para el traspaso transitorio.", TipoMensaje.MsgAdvertencia)
                RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
                If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
@@ -648,6 +656,13 @@ Partial Class Inventarios_TraspasoAlmacen
                If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
                Exit Sub
            End If
+
+            If DdlChofer.SelectedValue.ToEntero <= 0 Then
+                Alert("Debe seleccionar un Chofer", TipoMensaje.MsgAdvertencia)
+                RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
+                If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
+                Exit Sub
+            End If
        End If

        'VALIDA ALMACEN DISTINTA SUCURSAL DEBE SER TRANSITORIO
@@ -2790,6 +2805,7 @@ Partial Class Inventarios_TraspasoAlmacen
        Dim ObjInventarios As New ClsInventarios
        If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
            DdlUnidadCamion.DataSource = ObjInventarios.DtResultados
+            DtCamiones = ObjInventarios.DtResultados
        End If
        ObjInventarios.Dispose()
        DdlUnidadCamion.Items.Insert(0, New ListItem("Otro", "-1"))
@@ -2808,11 +2824,13 @@ Partial Class Inventarios_TraspasoAlmacen

    Private Sub DdlUnidadCamion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUnidadCamion.SelectedIndexChanged
        If DdlUnidadCamion.SelectedValue = "-1" Then
-            divPlacaEspecificacion.Visible = True
-        Else
-            divPlacaEspecificacion.Visible = False
+            'divPlacaEspecificacion.Visible = True
            TxtPlaca.Text = ""
            TxtEspecifUnidad.Text = ""
+        Else
+            'divPlacaEspecificacion.Visible = False
+            TxtPlaca.Text = DtCamiones.FiltroPrimeroValor("Placa", String.Format("CveCamion = {0}", DdlUnidadCamion.SelectedValue))
+            TxtEspecifUnidad.Text = DtCamiones.FiltroPrimeroValor("Especificacion", String.Format("CveCamion = {0}", DdlUnidadCamion.SelectedValue))
        End If
    End Sub
 End Class