CONTATOS ESPANHA

MORADA

Leal Y Soares España SL
Santa Baia S/N. Matalobos
36689 A Estrada. Pontevedra
(junto al polígono industrial de Toedo)
Espanha

Coordenadas

Lat 42.707845

Lon -8.520128

Telefone

+34 986 572 506 (**)

E-mail

general@siro.com.es

GESTOR DE CLIENTES

Galiza

Juan Carlos

juan.carlos@siro.com.es
+34 660 485 136 (**)

Daniel Louzão

daniel.louzao@siro.com.es
+34 660 485 138 (**)

Madrid/Ávila/Castilla-La Mancha/Extremadura

Jorge Villamiel

jorge.villamiel@siro.com.es
+34 607 479 706 (**)

Andalucia

Daniel Camarena

dcf@minano1972.com
+34 654 304 216 (**)

(*) Chamada para a rede fixa nacional. (**) Chamada para a rede móvel nacional.
'---------------------------------'---------------------------------'---------------------------------'--------------------------------- 'Ocultar colunas if mForm.PropEstadoDoMainForm = WebControlLib.Normalform.EstadoDoMainForm.Adicionando or mForm.PropEstadoDoMainForm=WebControlLib.Normalform.EstadoDoMainForm.Alterando then Dim MyGrid As Object = mpage.Master.FindControl("ctl00").FindControl("conteudo").FindControl("gridbi") Dim gridColumnHeaders As String() Select curCulture Case "PT" gridColumnHeaders = {"Pr.Unit.","Dsc 1", "Dsc 2", "Dsc 3", "Total"} Case "US" gridColumnHeaders = {"Unit Pr.","Descr 1", "Descr 2", "Descr 3", "Total"} Case "ES" gridColumnHeaders = {"Pr.Unit.","Dsc 1", "Dsc 2", "Dsc 3", "Total"} Case "PE" gridColumnHeaders = {"Pr.Unit.","Dsc 1", "Dsc 2", "Dsc 3", "Total"} End Select For index As Integer = 0 To Mygrid.Columns.Count - 1 If gridColumnHeaders.Contains(Mygrid.Columns(index).HeaderText) Then MyGrid.Columns(index).visible = False End If Next 'Aumentar os campos Mygrid.Columns(2).ItemStyle.Width = unit.percentage(65) Mygrid.Columns(3).ItemStyle.Width = unit.percentage(15) 'Ocultar Totais da Encomenda mPage.Master.FindControl("conteudo$etotaldeb").Visible = False mPage.Master.FindControl("conteudo$ettiva").Visible = False mPage.Master.FindControl("conteudo$etotalglobal").Visible = False end if 'Browlist Top 20 Artigos mais comprados if mForm.PropEstadoDoMainForm = WebControlLib.Normalform.EstadoDoMainForm.Adicionando or mForm.PropEstadoDoMainForm=WebControlLib.Normalform.EstadoDoMainForm.Alterando then Dim CounterColCaption, LOrderColCaption As String Select curCulture Case "PT" Title = "Artigos mais Comprados" RefColCaption = "Referência" DescColCaption = "Descrição" CounterColCaption = "Quant. Total" LOrderColCaption = "Última Encomenda" buildError = "Erro ao construir a estrutura de dados. Por favor contacto o Administrador de Sistema!" Case "US" Title = "Most Purchased Items" RefColCaption = "Reference" DescColCaption = "Description" CounterColCaption = "Total Qty." LOrderColCaption = "Last Order" buildError = "Error building the data structure. Please contact the System Administrator!" Case "ES" Title = "Artículos más comprados" RefColCaption = "Referencia" DescColCaption = "Descripción" CounterColCaption = "Cant. Total" LOrderColCaption = "Último pedido" buildError = "Error al crear la estructura de datos. ¡Por favor, póngase en contacto con el administrador del sistema!" Case "PE" Title = "Artículos más comprados" RefColCaption = "Referencia" DescColCaption = "Descripción" CounterColCaption = "Cant. Total" LOrderColCaption = "Último pedido" buildError = "Error al crear la estructura de datos. ¡Por favor, póngase en contacto con el administrador del sistema!" End Select Dim u_Browstlast As New BrowList With { .ID = "u_Browstlast", .Title = $"{Title}", .OkButtonCaption = PHCCulture.GetString("stlist_Confirmar"), .CancelButtonCaption = PHCCulture.GetString("stlist_Cancelar") } With u_Browstlast.Grid .PaginationRowsForPage = 10 .MultiSelectRows = True .ShowColumnToSelect = True .FieldId = "ststamp" .AddGridColumn("ref", RefColCaption) .AddGridColumn("design", DescColCaption) .AddGridColumn("contador", CounterColCaption) .AddGridColumn("fdata", LOrderColCaption) End With u_Browstlast.AddToForm(mForm) if mForm.PropEstadoDoMainForm = WebControlLib.Normalform.EstadoDoMainForm.Adicionando or mForm.PropEstadoDoMainForm=WebControlLib.Normalform.EstadoDoMainForm.Alterando then Dim BrowLastBtn As New NossoLinkButton With{ .Id = "u_BrowLastBtn", .Text = Title, .TextIconClass = "fa fa-history", .CssClass = "btn btn-default btn-sm " } Dim ObjDestino As Object = mpage.master.findcontrol("conteudo").findcontrol("GridBIContainer") ObjDestino.Controls.Add(BrowLastBtn) u_Browstlast.ListContext.GetModelFunctionAsync = Async Function(vars) if xcuser.clno() IsNot Nothing And xCuser.clestab() IsNot Nothing then Dim model As New PhcDynamicObject model.SetValue("data", Await PhcCommandBuilder. CreateSelect("Distinct Top 20 count(*) As contador, st.ref, st.design, st.ststamp, ("). Select("Top 1 fdata ").From("pn").Where("pn.no=" & xcuser.clno()).And("pn.estab=" & xCuser.clestab()).And("pn.ref = st.ref").OrderBy("pn.fdata desc) As fdata"). From("pn"). InnerJoin("st"). On("st.ref = pn.ref"). Where("pn.no=" & xcuser.clno()).And("pn.estab=" & xCuser.clestab()).And("pn.fdata >= DateAdd(Month,DateDiff(Month,0,GetDate())-12,0)"). And("st.vaiwww=1 And st.bloqueado=0 And st.inactivo=0 "). And($"st.ref in (Select distinct sttbpri.ref From st sttbpri (Nolock) Inner Join tbpri (Nolock) On tbpri.ref = sttbpri.ref Inner Join tbpr (Nolock) On tbpr.tbprstamp=tbpri.tbprstamp And tbpr.inactivo=0 Where sttbpri.vaiwww=1 And sttbpri.bloqueado=0 And sttbpri.inactivo=0 And tbpr.cod = (Select tbprcod From cl (Nolock) Inner Join uscl On uscl.clstamp=cl.clstamp Where uscl.userno = {xCuser.userno}))"). GroupBy("st.ref, st.design, st.ststamp"). OrderBy("contador Desc").GetSqlResultAsync) if model IsNot Nothing then Return model else UserMessages.SendError(buildError) end if end if End Function u_Browstlast.ListContext.SetSelectRowsFunction = Function(values) if Not values.Ids.Any OrElse values.Ids.First.IsNullOrEmpty then Return JsonMessage.GetNewJsonError.AddMessage(PHCCulture.GetString("forms_Nada_foi_seleccionado")) end If Dim bocursor, bicursor, bi2cursor As New DataTable Dim tscursor As New DataTable bizlib.Utility.boutil.get_tsvalores("23", tscursor) For Each row In values.ids Dim StVals = PhcCommandBuilder.CreateSelect("st.ststamp, st.ref, st.design").From("st").Where("st.ststamp='" & row & "'").GetFirstRow bicursor = CData.GetDataTable($"Select * From ebi (NoLock) Where ebi.ebostamp='{mpage.ToMainform.propstamp}'", 0, True, "ebi") bocursor = CData.GetDataTable($"Select * From ebo (NoLock) Where ebo.ebostamp='{mpage.ToMainform.propstamp}'", 0, True, "ebo") bi2cursor = CData.GetDataTable($"Select * From ebi2 (NoLock) Where ebi2.ebostamp='{mpage.ToMainform.propstamp}'", 0, True, "ebi2") Dim BaseZeroHandleRec As Integer BaseZeroHandleRec = bizlib.boclass.boaddreg.binewline("BOFORM", bicursor, bocursor.Rows(0), tscursor.Rows(0),bi2cursor, "") BaseZeroHandleRec -= 1 bicursor.Rows(BaseZeroHandleRec).Item("ref") = STVals("Ref") bicursor.Rows(BaseZeroHandleRec).Item("qtt") = 1 Dim bolinha As DataRow = bocursor.Rows(0) Dim tslinha As DataRow = tscursor.Rows(0) bizlib.boclass.boaddreg.actRef("boform",bocursor.Rows(0), tslinha, bicursor.Rows(BaseZeroHandleRec) , false, False, , ,bicursor, ) bizlib.boclass.boaddreg.u_bottdeb(bocursor.Rows(0)("moeda"), tslinha, bicursor.Rows(BaseZeroHandleRec), bocursor.Rows(0)) bizlib.boclass.boaddreg.acttotais(tslinha.Item("ndos"), mStamp, True, bicursor, bocursor.Rows(0), tslinha) Dim DataSet As New DataSet() DataSet.Tables.Add(bocursor) DataSet.Tables.Add(bicursor) DataSet.Tables.Add(bi2cursor) CData.SaveDataSet(DataSet) Next Return JsonMessage.GetNewJsonSuccess.AddReturnUrl("../enc/encform.aspx#ctl00_conteudo_TabContainerDadosEncomenda") End Function u_Browstlast.SetShowBrowListFromLinkButton(BrowLastBtn) end if end if '---------------------------------'---------------------------------'---------------------------------'--------------------------------- 'Browlist última encomenda if mForm.PropEstadoDoMainForm = WebControlLib.Normalform.EstadoDoMainForm.Adicionando or mForm.PropEstadoDoMainForm=WebControlLib.Normalform.EstadoDoMainForm.Alterando then Dim OrdTotalColCaption As String Select curCulture Case "PT" Title = "Última Encomenda" RefColCaption = "Referência" DescColCaption = "Descrição" OrdTotalColCaption = "Quant. Encomendada" buildError = "Erro ao construir a estrutura de dados. Por favor contacto o Administrador de Sistema!" Case "US" Title = "Last Order" RefColCaption = "Reference" DescColCaption = "Description" OrdTotalColCaption = "Ordered Qty." buildError = "Error building the data structure. Please contact the System Administrator!" Case "ES" Title = "Último pedido" RefColCaption = "Referencia" DescColCaption = "Descripción" OrdTotalColCaption = "Cant. Ordenado" buildError = "Error al crear la estructura de datos. ¡Por favor, póngase en contacto con el administrador del sistema!" Case "PE" Title = "Último pedido" RefColCaption = "Referencia" DescColCaption = "Descripción" OrdTotalColCaption = "Cant. Ordenado" buildError = "Error al crear la estructura de datos. ¡Por favor, póngase en contacto con el administrador del sistema!" End Select Dim u_BrowLastOrder As New BrowList With { .ID = "u_BrowLastOrder", .Title = $"{Title}", .OkButtonCaption = PHCCulture.GetString("stlist_Confirmar"), .CancelButtonCaption = PHCCulture.GetString("stlist_Cancelar") } With u_BrowLastOrder.Grid .PaginationRowsForPage = 10 .MultiSelectRows = True .ShowColumnToSelect = True .FieldId = "bistamp" .AddGridColumn("ref", RefColCaption) .AddGridColumn("design", DescColCaption) .AddGridColumn("qtt", OrdTotalColCaption) End With u_BrowLastOrder.AddToForm(mForm) if mForm.PropEstadoDoMainForm = WebControlLib.Normalform.EstadoDoMainForm.Adicionando or mForm.PropEstadoDoMainForm=WebControlLib.Normalform.EstadoDoMainForm.Alterando then Dim BrowLastOrderBtn As New NossoLinkButton With{ .Id = "u_BrowLastOrderBtn", .Text = Title, .TextIconClass = "fa fa-clock-o", .CssClass = "btn btn-default btn-sm " } Dim ObjDestino As Object = mpage.master.findcontrol("conteudo").findcontrol("GridBIContainer") ObjDestino.Controls.Add(BrowLastOrderBtn) u_BrowLastOrder.ListContext.GetModelFunctionAsync = Async Function(vars) if xcuser.clno() IsNot Nothing And xCuser.clestab() IsNot Nothing then Dim model As New PhcDynamicObject model.SetValue("data", Await PhcCommandBuilder. CreateSelect("bi.bistamp, st.ref, st.design, bi.qtt"). From("bi"). InnerJoin("st"). On("st.ref = bi.ref"). Where("bi.no = " & xcuser.clno()).And("bi.estab = " & xCuser.clestab()).And("bi.ref <> ''").And("bi.design <> ''"). And("bi.bostamp In("). Select("TOP 1 bo.bostamp").From("bo").Where("bo.no = "& xcuser.clno()).And("bo.estab = " & xCuser.clestab()).And("bo.ndos = 12").OrderBy("bo.dataobra Desc)"). And("bi.ndos = 12"). And("st.vaiwww=1 And st.bloqueado=0 And st.inactivo=0 "). And($"st.ref in (Select distinct sttbpri.ref From st sttbpri (Nolock) Inner Join tbpri (Nolock) On tbpri.ref = sttbpri.ref Inner Join tbpr (Nolock) On tbpr.tbprstamp=tbpri.tbprstamp And tbpr.inactivo=0 Where sttbpri.vaiwww=1 And sttbpri.bloqueado=0 And sttbpri.inactivo=0 And tbpr.cod = (Select tbprcod From cl (Nolock) Inner Join uscl On uscl.clstamp=cl.clstamp Where uscl.userno = {xCuser.userno}))").GetSqlResultAsync) if model IsNot Nothing then Return model else UserMessages.SendError(buildError) end if end if End Function u_BrowLastOrder.ListContext.SetSelectRowsFunction = Function(values) if Not values.Ids.Any OrElse values.Ids.First.IsNullOrEmpty then Return JsonMessage.GetNewJsonError.AddMessage(PHCCulture.GetString("forms_Nada_foi_seleccionado")) end If Dim bocursor, bicursor, bi2cursor As New DataTable Dim tscursor As New DataTable bizlib.Utility.boutil.get_tsvalores("23", tscursor) For Each row In values.ids Dim StVals = PhcCommandBuilder.CreateSelect("bi.bistamp, st.ref, st.design, bi.qtt").From("bi"). InnerJoin("st").On("st.ref = bi.ref"). Where("bi.bistamp='" & row & "'").GetFirstRow bicursor = CData.GetDataTable($"Select * From ebi (NoLock) Where ebi.ebostamp='{mpage.ToMainform.propstamp}'", 0, True, "ebi") bocursor = CData.GetDataTable($"Select * From ebo (NoLock) Where ebo.ebostamp='{mpage.ToMainform.propstamp}'", 0, True, "ebo") bi2cursor = CData.GetDataTable($"Select * From ebi2 (NoLock) Where ebi2.ebostamp='{mpage.ToMainform.propstamp}'", 0, True, "ebi2") Dim BaseZeroHandleRec As Integer BaseZeroHandleRec = bizlib.boclass.boaddreg.binewline("BOFORM", bicursor, bocursor.Rows(0), tscursor.Rows(0),bi2cursor, "") BaseZeroHandleRec -= 1 bicursor.Rows(BaseZeroHandleRec).Item("ref") = STVals("Ref") bicursor.Rows(BaseZeroHandleRec).Item("qtt") = STVals("qtt") Dim bolinha As DataRow = bocursor.Rows(0) Dim tslinha As DataRow = tscursor.Rows(0) bizlib.boclass.boaddreg.actRef("boform",bocursor.Rows(0), tslinha, bicursor.Rows(BaseZeroHandleRec) , false, False, , ,bicursor, ) bizlib.boclass.boaddreg.u_bottdeb(bocursor.Rows(0)("moeda"), tslinha, bicursor.Rows(BaseZeroHandleRec), bocursor.Rows(0)) bizlib.boclass.boaddreg.acttotais(tslinha.Item("ndos"), mStamp, True, bicursor, bocursor.Rows(0), tslinha) Dim DataSet As New DataSet() DataSet.Tables.Add(bocursor) DataSet.Tables.Add(bicursor) DataSet.Tables.Add(bi2cursor) CData.SaveDataSet(DataSet) Next Return JsonMessage.GetNewJsonSuccess.AddReturnUrl("../enc/encform.aspx#ctl00_conteudo_TabContainerDadosEncomenda") End Function u_BrowLastOrder.SetShowBrowListFromLinkButton(BrowLastOrderBtn) end if end if '---------------------------------'---------------------------------'---------------------------------'--------------------------------- 'Browlist Fertilizantes & Adubos if mform.PropEstadoDoMainForm = WebControlLib.Normalform.EstadoDoMainForm.Adicionando or mform.PropEstadoDoMainForm=WebControlLib.Normalform.EstadoDoMainForm.Alterando then Dim QuantColCaption, EmbColCaption As String Select curCulture Case "PT" Title = "Fertilizantes & Adubos" RefColCaption = "Referência" DescColCaption = "Descrição" QuantColCaption = "Quantidade" EmbColCaption = "Embalagem" buildError = "Erro ao construir a estrutura de dados. Por favor contacto o Administrador de Sistema!" Case "US" Title = "Fertilizers" RefColCaption = "Reference" DescColCaption = "Description" QuantColCaption = "Quantity" EmbColCaption = "Package" buildError = "Error building the data structure. Please contact the System Administrator!" Case "ES" Title = "Fertilizantes & Abonos" RefColCaption = "Referencia" DescColCaption = "Descripción" QuantColCaption = "Cantidad" EmbColCaption = "Embalaje" buildError = "Error al crear la estructura de datos. ¡Por favor, póngase en contacto con el administrador del sistema!" Case "PE" Title = "Fertilizantes & Abonos" RefColCaption = "Referencia" DescColCaption = "Descripción" QuantColCaption = "Cantidad" EmbColCaption = "Embalaje" buildError = "Error al crear la estructura de datos. ¡Por favor, póngase en contacto con el administrador del sistema!" End Select Dim u_BrowFertilizers As New BrowList With { .ID = "u_BrowFertilizers", .Title = Title, .OkButtonCaption = PHCCulture.GetString("stlist_Confirmar"), .CancelButtonCaption = PHCCulture.GetString("stlist_Cancelar") } With u_BrowFertilizers.Grid .PaginationRowsForPage = 10 .MultiSelectRows = True .ShowColumnToSelect = True .FieldId = "ststamp" .AddGridColumn("ref", RefColCaption) .AddGridColumn("design", DescColCaption) .AddGridColumn("qtt", QuantColCaption) .AddGridColumn("emb", EmbColCaption) End With u_BrowFertilizers.AddToForm(mform) if mform.PropEstadoDoMainForm = WebControlLib.Normalform.EstadoDoMainForm.Adicionando or mform.PropEstadoDoMainForm=WebControlLib.Normalform.EstadoDoMainForm.Alterando then Dim BrowFertilizersBtn As New NossoLinkButton With{ .Id = "u_BrowFertilizersBtn", .Text = Title, .TextIconClass = "fa fa-plus", .CssClass = "btn btn-default btn-sm " } Dim ObjDestino As Object = mpage.master.findcontrol("conteudo").findcontrol("GridBIContainer") ObjDestino.Controls.Add(BrowFertilizersBtn) u_BrowFertilizers.ListContext.GetModelFunctionAsync = Async Function(vars) Dim model As New PhcDynamicObject model.SetValue("data", Await PhcCommandBuilder. CreateSelect("st.ststamp, st.ref, st.design,"). CaseWhen("Isnull((Select Count(*) ").From("bc").Where("st.ref = bc.ref),0) > 1"). Then("IsNull((Select TOP 1 qtt ").From("bc").Where("st.ref = bc.ref And Upper(bc.emb) = UPPER('caixa')),0)"). Else("Isnull((Select TOP 1 qtt ").From("bc").Where("st.ref = bc.ref),0)"). EndAs("qtt,"). CaseWhen("Isnull((Select Count(*) ").From("bc").Where("st.ref = bc.ref),0) > 1"). Then("IsNull((Select TOP 1 emb ").From("bc").Where("st.ref = bc.ref And Upper(bc.emb) = UPPER('caixa')),0)"). Else("Isnull((Select TOP 1 emb ").From("bc").Where("st.ref = bc.ref),0)"). EndAs("emb"). From("st"). Where("st.ref Like 'SA1%' And (st.ref Not Like '%599' And st.ref Not Like '%597' And st.ref Not Like '%099' And st.familia = 'FERTILIZANTE' And st.u_intravd = 1 And st.inactivo = 0)"). And("st.vaiwww=1 And st.bloqueado=0 And st.inactivo=0 "). And($"st.ref in (Select distinct sttbpri.ref From st sttbpri (Nolock) Inner Join tbpri (Nolock) On tbpri.ref = sttbpri.ref Inner Join tbpr (Nolock) On tbpr.tbprstamp=tbpri.tbprstamp And tbpr.inactivo=0 Where sttbpri.vaiwww=1 And sttbpri.bloqueado=0 And sttbpri.inactivo=0 And tbpr.cod = (Select tbprcod From cl (Nolock) Inner Join uscl On uscl.clstamp=cl.clstamp Where uscl.userno = {xCuser.userno}))"). OrderBy("ref Asc").GetSqlResultAsync) if model IsNot Nothing then Return model else UserMessages.SendError(buildError) end if End Function u_BrowFertilizers.ListContext.SetSelectRowsFunction = Function(values) if Not values.Ids.Any OrElse values.Ids.First.IsNullOrEmpty then Return JsonMessage.GetNewJsonError.AddMessage(PHCCulture.GetString("forms_Nada_foi_seleccionado")) end If Dim bocursor, bicursor, bi2cursor As New DataTable Dim tscursor As New DataTable bizlib.Utility.boutil.get_tsvalores("23", tscursor) For Each row In values.ids Dim StVals = PhcCommandBuilder.CreateSelect("st.ststamp, st.ref, st.design,"). CaseWhen("Isnull((Select Count(*) ").From("bc").Where("st.ref = bc.ref),0) > 1"). Then("IsNull((Select TOP 1 qtt ").From("bc").Where("st.ref = bc.ref And Upper(bc.emb) = UPPER('caixa')),0)"). Else("Isnull((Select TOP 1 qtt ").From("bc").Where("st.ref = bc.ref),0)"). EndAs("qtt"). From("st"). Where("st.ststamp='" & row & "'").GetFirstRow bicursor = CData.GetDataTable($"Select * From ebi (NoLock) Where ebi.ebostamp='{mpage.ToMainform.propstamp}'", 0, True, "ebi") bocursor = CData.GetDataTable($"Select * From ebo (NoLock) Where ebo.ebostamp='{mpage.ToMainform.propstamp}'", 0, True, "ebo") bi2cursor = CData.GetDataTable($"Select * From ebi2 (NoLock) Where ebi2.ebostamp='{mpage.ToMainform.propstamp}'", 0, True, "ebi2") Dim BaseZeroHandleRec As Integer BaseZeroHandleRec = bizlib.boclass.boaddreg.binewline("BOFORM", bicursor, bocursor.Rows(0), tscursor.Rows(0),bi2cursor, "") BaseZeroHandleRec -= 1 bicursor.Rows(BaseZeroHandleRec).Item("ref") = STVals("ref") bicursor.Rows(BaseZeroHandleRec).Item("qtt") = STVals("qtt") Dim bolinha As DataRow = bocursor.Rows(0) Dim tslinha As DataRow = tscursor.Rows(0) bizlib.boclass.boaddreg.actRef("boform",bocursor.Rows(0), tslinha, bicursor.Rows(BaseZeroHandleRec) , false, False, , ,bicursor, ) bizlib.boclass.boaddreg.u_bottdeb(bocursor.Rows(0)("moeda"), tslinha, bicursor.Rows(BaseZeroHandleRec), bocursor.Rows(0)) bizlib.boclass.boaddreg.acttotais(tslinha.Item("ndos"), mStamp, True, bicursor, bocursor.Rows(0), tslinha) Dim DataSet As New DataSet() DataSet.Tables.Add(bocursor) DataSet.Tables.Add(bicursor) DataSet.Tables.Add(bi2cursor) CData.SaveDataSet(DataSet) Next Return JsonMessage.GetNewJsonSuccess.AddReturnUrl("../enc/encform.aspx#ctl00_conteudo_TabContainerDadosEncomenda") End Function u_BrowFertilizers.SetShowBrowListFromLinkButton(BrowFertilizersBtn) end if end if '---------------------------------'---------------------------------'---------------------------------'--------------------------------- 'Browlist Sementes if mform.PropEstadoDoMainForm = WebControlLib.Normalform.EstadoDoMainForm.Adicionando or mform.PropEstadoDoMainForm=WebControlLib.Normalform.EstadoDoMainForm.Alterando then Dim UndColCaption As String Select curCulture Case "PT" Title = "Sementes" RefColCaption = "Referência" DescColCaption = "Descrição" UndColCaption = "Unidade" buildError = "Erro ao construir a estrutura de dados. Por favor contacto o Administrador de Sistema!" Case "US" Title = "Seeds" RefColCaption = "Reference" DescColCaption = "Description" UndColCaption = "Unit" buildError = "Error building the data structure. Please contact the System Administrator!" Case "ES" Title = "Semillas" RefColCaption = "Referencia" DescColCaption = "Descripción" UndColCaption = "Unidad" buildError = "Error al crear la estructura de datos. ¡Por favor, póngase en contacto con el administrador del sistema!" Case "PE" Title = "Semillas" RefColCaption = "Referencia" DescColCaption = "Descripción" UndColCaption = "Unidad" buildError = "Error al crear la estructura de datos. ¡Por favor, póngase en contacto con el administrador del sistema!" End Select Dim u_BrowSeeds As New BrowList With { .ID = "u_BrowSeeds", .Title = Title, .OkButtonCaption = PHCCulture.GetString("stlist_Confirmar"), .CancelButtonCaption = PHCCulture.GetString("stlist_Cancelar") } With u_BrowSeeds.Grid .PaginationRowsForPage = 10 .MultiSelectRows = True .ShowColumnToSelect = True .FieldId = "ststamp" .AddGridColumn("ref", RefColCaption) .AddGridColumn("design", DescColCaption) .AddGridColumn("unidade", UndColCaption) End With u_BrowSeeds.AddToForm(mform) if mform.PropEstadoDoMainForm = WebControlLib.Normalform.EstadoDoMainForm.Adicionando or mform.PropEstadoDoMainForm=WebControlLib.Normalform.EstadoDoMainForm.Alterando then Dim BrowSeedsBtn As New NossoLinkButton With{ .Id = "u_BrowSeedsBtn", .Text = Title, .TextIconClass = "fa fa-plus", .CssClass = "btn btn-default btn-sm " } Dim ObjDestino As Object = mpage.master.findcontrol("conteudo").findcontrol("GridBIContainer") ObjDestino.Controls.Add(BrowSeedsBtn) u_BrowSeeds.ListContext.GetModelFunctionAsync = Async Function(vars) Dim model As New PhcDynamicObject model.SetValue("data", Await PhcCommandBuilder. CreateSelect("st.ststamp, st.ref, st.design, st.unidade"). From("st"). Where("st.ref Like 'SE203%' And u_intravd = 1"). And("st.vaiwww=1 And st.bloqueado=0 And st.inactivo=0 "). And($"st.ref in (Select distinct sttbpri.ref From st sttbpri (Nolock) Inner Join tbpri (Nolock) On tbpri.ref = sttbpri.ref Inner Join tbpr (Nolock) On tbpr.tbprstamp=tbpri.tbprstamp And tbpr.inactivo=0 Where sttbpri.vaiwww=1 And sttbpri.bloqueado=0 And sttbpri.inactivo=0 And tbpr.cod = (Select tbprcod From cl (Nolock) Inner Join uscl On uscl.clstamp=cl.clstamp Where uscl.userno = {xCuser.userno}))"). OrderBy("ref Asc").GetSqlResultAsync) if model IsNot Nothing then Return model else UserMessages.SendError(buildError) end if End Function u_BrowSeeds.ListContext.SetSelectRowsFunction = Function(values) if Not values.Ids.Any OrElse values.Ids.First.IsNullOrEmpty then Return JsonMessage.GetNewJsonError.AddMessage(PHCCulture.GetString("forms_Nada_foi_seleccionado")) end If Dim bocursor, bicursor, bi2cursor As New DataTable Dim tscursor As New DataTable bizlib.Utility.boutil.get_tsvalores("23", tscursor) For Each row In values.ids Dim StVals = PhcCommandBuilder.CreateSelect("st.ststamp, st.ref, st.design").From("st").Where("st.ststamp='" & row & "'").GetFirstRow bicursor = CData.GetDataTable($"Select * From ebi (NoLock) Where ebi.ebostamp='{mpage.ToMainform.propstamp}'", 0, True, "ebi") bocursor = CData.GetDataTable($"Select * From ebo (NoLock) Where ebo.ebostamp='{mpage.ToMainform.propstamp}'", 0, True, "ebo") bi2cursor = CData.GetDataTable($"Select * From ebi2 (NoLock) Where ebi2.ebostamp='{mpage.ToMainform.propstamp}'", 0, True, "ebi2") Dim BaseZeroHandleRec As Integer BaseZeroHandleRec = bizlib.boclass.boaddreg.binewline("BOFORM", bicursor, bocursor.Rows(0), tscursor.Rows(0),bi2cursor, "") BaseZeroHandleRec -= 1 bicursor.Rows(BaseZeroHandleRec).Item("ref") = STVals("Ref") bicursor.Rows(BaseZeroHandleRec).Item("qtt") = 1 Dim bolinha As DataRow = bocursor.Rows(0) Dim tslinha As DataRow = tscursor.Rows(0) bizlib.boclass.boaddreg.actRef("boform",bocursor.Rows(0), tslinha, bicursor.Rows(BaseZeroHandleRec) , false, False, , ,bicursor, ) bizlib.boclass.boaddreg.u_bottdeb(bocursor.Rows(0)("moeda"), tslinha, bicursor.Rows(BaseZeroHandleRec), bocursor.Rows(0)) bizlib.boclass.boaddreg.acttotais(tslinha.Item("ndos"), mStamp, True, bicursor, bocursor.Rows(0), tslinha) Dim DataSet As New DataSet() DataSet.Tables.Add(bocursor) DataSet.Tables.Add(bicursor) DataSet.Tables.Add(bi2cursor) CData.SaveDataSet(DataSet) Next Return JsonMessage.GetNewJsonSuccess.AddReturnUrl("../enc/encform.aspx#ctl00_conteudo_TabContainerDadosEncomenda") End Function u_BrowSeeds.SetShowBrowListFromLinkButton(BrowSeedsBtn) end if end if '---------------------------------------------------------------------------- ' Browlist Moradas de Descarga if mform.PropEstadoDoMainForm = WebControlLib.Normalform.EstadoDoMainForm.Adicionando or mform.PropEstadoDoMainForm=WebControlLib.Normalform.EstadoDoMainForm.Alterando then Dim DescCaption, AdressCaption, CodPostCaption As String Select curCulture Case "PT" Title = "Moradas de Descarga" DescCaption = "Descrição" AdressCaption = "Morada" CodPostCaption = "Código Postal" buildError = "Erro ao construir a estrutura de dados. Por favor contacto o Administrador de Sistema!" Case "US" Title = "Unloading Addresses" DescCaption = "Description" AdressCaption = "Address" CodPostCaption = "Postal Code" buildError = "Error building the data structure. Please contact the System Administrator!" Case "ES" Title = "Direcciones de Descarga" DescCaption = "Descripción" AdressCaption = "Morada" CodPostCaption = "Código Postal" buildError = "Error al crear la estructura de datos. ¡Por favor, póngase en contacto con el administrador del sistema!" Case "PE" Title = "Direcciones de Descarga" DescCaption = "Descripción" AdressCaption = "Morada" CodPostCaption = "Código Postal" buildError = "Error al crear la estructura de datos. ¡Por favor, póngase en contacto con el administrador del sistema!" End Select Dim u_MDescarBrow As New BrowList With { .ID = "u_MDescarBrow", .Title = Title, .OkButtonCaption = PHCCulture.GetString("stlist_Confirmar"), .CancelButtonCaption = PHCCulture.GetString("stlist_Cancelar") } With u_MDescarBrow.Grid .PaginationRowsForPage = 10 .MultiSelectRows = False .ShowColumnToSelect = True .FieldId = "szadrsstamp" .AddGridColumn("szadrsdesc", DescCaption) .AddGridColumn("morada", AdressCaption) .AddGridColumn("codpost", CodPostCaption) End With u_MDescarBrow.AddToForm(mform) Dim u_LookUpSzadrs As New NossoLinkButton With { .Id = "u_LookUpSzadrs", .TextIconClass = "fa fa-search", .CssClass = "btn btn-default btn-sm" } u_LookUpSzadrs.Style.Add("margin-right","5px") Dim ObjDestino As Object = mpage.master.findcontrol("conteudo").findcontrol("descar23") if ObjDestino IsNot Nothing and u_LookUpSzadrs IsNot Nothing then ObjDestino.Controls.Add(u_LookUpSzadrs) end if u_MDescarBrow.ListContext.GetModelFunctionAsync = Async Function(vars) Dim model As New PhcDynamicObject model.SetValue("data", Await PhcCommandBuilder. CreateSelect("szadrs.szadrsdesc, szadrs.morada, szadrs.szadrsstamp, szadrs.codpost"). From("szadrs").Where("szadrs.no=" & xcuser.clno() ).GetSqlResultAsync) if model IsNot Nothing then Return model else UserMessages.SendError(buildError) end if End Function u_MDescarBrow.ListContext.SetSelectRowsFunction = Function(values) if Not values.Ids.Any OrElse values.Ids.First.IsNullOrEmpty Then Return JsonMessage.GetNewJsonError.AddMessage(PHCCulture.GetString("forms_Nada_foi_seleccionado")) end if Dim Bo2Cursor = mpage.ToMainform.PropMainFormDataSet.Tables("bbo2") Dim Bo3Cursor = mpage.ToMainform.PropMainFormDataSet.Tables("bbo3") For Each row In values.ids Dim MDescarga = PhcCommandBuilder.CreateSelect("szadrs.szadrsdesc, szadrs.latitude, szadrs.longitude").From("szadrs").Where("szadrs.szadrsstamp='" & row & "'").GetFirstRow Bo2Cursor.Rows(0).Item("descar") = MDescarga.Item("szadrsdesc") Bo3Cursor.Rows(0).Item("latitude") = MDescarga.Item("latitude") Bo3Cursor.Rows(0).Item("longitude") = MDescarga.Item("longitude") CData.SaveDataTable(Bo2Cursor) CData.SaveDataTable(Bo3Cursor) Next return JsonMessage.GetNewJsonSuccess.AddReturnUrl("../enc/encform.aspx#ctl00_conteudo_descar23") End Function u_MDescarBrow.SetShowBrowListFromLinkButton(u_LookUpSzadrs) end if '---------------------------------'---------------------------------'---------------------------------'--------------------------------- 'Atualiza as condições de pagamento if mPage.ToMainForm.PropEstadoDoMainForm = WebControlLib.Normalform.EstadoDoMainForm.Adicionando or mPage.ToMainForm.PropEstadoDoMainForm=WebControlLib.Normalform.EstadoDoMainForm.Alterando and mPage.ToMainForm.PropMainFormDataSet IsNot Nothing then Dim BoTable As DataTable = mPage.ToMainForm.PropMainFormDataSet.Tables("ebo") Dim Obj_Cobranca As NossoCampoTextBox = mPage.Master.FindControl("ctl00$conteudo$cobranca") Try Dim CobrancaDataTable As DataTable = PhcCommandBuilder.CreateSelect("cl.cobranca"). From("cl"). Where("cl.no=" & xcuser.clno()).And("cl.estab=" & xCuser.clestab()). GetDatatable() if CobrancaDataTable.HaveRows() then BoTable.Rows(0).Item("cobranca") = CobrancaDataTable.Rows(0).Item("cobranca") Obj_Cobranca.Value = CobrancaDataTable.Rows(0).Item("cobranca") Obj_Cobranca.Refresh() else BoTable.Rows(0).Item("cobranca") = "" Obj_Cobranca.Value = "" Obj_Cobranca.Refresh() end if Catch ex As Exception xCUtil.Alerta(mPage, ex.ToString(),3) End Try Obj_Cobranca.Refresh() end if '---------------------------------'---------------------------------'---------------------------------'--------------------------------- 'Traduz restantes objectos do ecrã Dim vReferencia As NossoLabel = mPage.Master.FindControl("conteudo$nmdesc$tLabel1") Dim Descarga As Label = mPage.Master.FindControl("conteudo$TabContainerUs_0$lbltext") Dim MoradaDescarga As Label = mPage.Master.FindControl("conteudo$descar23$tLabel1") Dim NovaMorada As CheckBox = mPage.Master.FindControl("conteudo$logi1$mBox1") Dim ObsGerais As Label = mPage.Master.FindControl("conteudo$TabContainerUs_1$lbltext") Dim Obs As Label = mPage.Master.FindControl("conteudo$u_obsaux$tLabel1") Dim ObsLogistica As Label = mPage.Master.FindControl("conteudo$u_obsaux323$tLabel1") Dim descargaTitle, moradaDescargaTitle ,obsGeraisTitle, obsTitle, obsLogisticaTitle, novaMoradaTitle, vReferenciaTitle As String Select curCulture Case "PT" descargaTitle = "Descarga" moradaDescargaTitle = "Morada de Descarga" obsGeraisTitle = "Observações Gerais" obsTitle = "Observações" obsLogisticaTitle = "Observações Logística" novaMoradaTitle = "Nova Morada" vReferenciaTitle = "V/ Referência" Case "US" descargaTitle = "Unloading" moradaDescargaTitle = "Unloading address" obsGeraisTitle = "General Observations" obsTitle = "Observations" obsLogisticaTitle = "Logistics Observations" novaMoradaTitle = "New Adress" vReferenciaTitle = "Order Reference" Case "ES" descargaTitle = "Descargar" moradaDescargaTitle = "Dirección de Descarga" obsGeraisTitle = "Observaciones Generales" obsTitle = "Observaciones" obsLogisticaTitle = "Observaciones Logísticas" novaMoradaTitle = "Nueva Direccion" vReferenciaTitle = "V/ Referencia" Case "PE" descargaTitle = "Descargar" moradaDescargaTitle = "Dirección de Descarga" obsGeraisTitle = "Observaciones Generales" obsTitle = "Observaciones" obsLogisticaTitle = "Observaciones Logísticas" novaMoradaTitle = "Nueva Direccion" vReferenciaTitle = "V/ Referencia" End Select if vReferencia isNot nothing then vReferencia.Text = vReferenciaTitle end if if Descarga isNot nothing andAlso MoradaDescarga isNot nothing andAlso NovaMorada isNot nothing then Descarga.Text = descargaTitle MoradaDescarga.Text = moradaDescargaTitle NovaMorada.Text = novaMoradaTitle end if if ObsGerais isNot nothing andAlso Obs isNot nothing andAlso ObsLogistica isNot nothing then ObsGerais.Text = obsGeraisTitle Obs.Text = obsTitle ObsLogistica.Text = obsLogisticaTitle end if