Estou tentando gerar notas de entrega a partir de tickets de seleção e não consigo encontrar nenhum exemplo de código. Agora criei o seguinte código, mas estou tendo problemas quando os itens estão em múltiplas localizações de contêineres.
Public Sub Sales2Delivery() '(ByVal OrderID As String)
Dim OrderID As String = ""
Tentar
Usando conexão Como New SqlConnection(StaginConn)
'Dim comando Como New SqlCommand("SELECT DocEntry from ORDR with (nolock) WHERE NumAtCard = '" & OrderID & "'", conexão)
Dim comando Como New SqlCommand("SET DATEFORMAT DMY; select distinct top 5 o.DocEntry, o.NumAtCard from ordr O with (nolock) join RDR1 R with (nolock) on R.DocEntry = O.DocEntry join OPKL P with (nolock) on P.AbsEntry = R.PickIdNo where u_shipstate = 'Delivered' and CAST(O.docdate as date) >= '30/04/2014' and P.Status = 'Y';", conexão)
conexão.Abrir()
Dim leitor Como SqlDataReader = comando.ExecuteReader()
' Chamar Read antes de acessar os dados.
Enquanto leitor.Read()
Dim OrdensNegócio Como Documentos = DirectCast(vCompany.GetBusinessObject(BoObjectTypes.oOrders), Documentos)
Dim EntregaNegócio Como Documentos = DirectCast(vCompany.GetBusinessObject(BoObjectTypes.oDeliveryNotes), Documentos)
Dim ordens Como Documentos = OrdensNegócio
ordens.GetByKey(Convert.ToInt32(lector(0)))
OrderID = Convert.ToString(lector(1))
