[Resolvido]Estudo de caso - Dividir o pedido do cliente em...duas ou tres vezes. ( não é parcelas nem faturamento )

Iniciando um estudo de caso.

situação: cliente faz um pedido de compra, essa compra tem 13 itens e quer desmembrar.

Explicação.

Ao fazer um pedido, cliente deseja que esse pedido, seja desmembrado em dois ou em três conforme a necessidade.

Necessito de ajuda para elucidar o caso acima.

O cliente faz o pedido, mas quer que esse mesmo pedido com 13 itens seja desmembrado em dois.

A rotina,terá que contar o total de itens que está no sub formulário, dividir por 2 ou por 3 (conforme o caso) e gerar um novo pedido, mantendo os dados do formulário principal.

Alguém topa me ajudar nesse " parada " ?

[]'s

Então nao terá opção de escolher qual produto vai em cada Pedido?

a um temop, ja vi algo parecido, mas o que acontecia era que o cliente fazia o pedido xxx Com 10 Itens.
1-Açucar --- 10Kg
2-Sal ---50Kg
3-Oleo --- 10cx
...
10 -Leite --- 50Kg

Porem nesse mês ele so quer que mande para ele os itens:

1-Açucar --- 10Kg
10 -Leite --- 50Kg

Restando os Outros Oito Itens!


Nesse Caso, na tabela detalhe Pedido ou similar, vc coloca alguns campos a mais... Pleo menos umca checkbox (Desmembrar)... Qnd seleciona o Pedido, vc marca a CheckBox do item 1 e 10, e no Botão Desmembrar>>> Ele ja leva os dados para a Tela de Vendas para ser fechada a venda...

No próximo mês, qnd buscar esse pedido apenas os produtos que nao foram entregue ficam disponíveis para serem enviados...


Dá ate para melhorar ainda mais isso... Digamos que nesse mes em questao o cliente so quer que seja entregue os mesmo itens (1 e 10) porem do Item 10 ele quer apenas 25Kg. Entao, ao marcar o checkBox Desmembrar, abre-se um campo "QntEnviada" e vc digita quanto vai enviar para o Cliente... Aee entao na proxima vez, ao enviar o restante so permitira enviar o que falta...

Claro isso sao particularidades de clientes..

Bom dia...

Com grande ajuda do FábioPaes, chegamos a uma conclusão dessa parte de desenvolvimento.

Vou postar aqui, o código na integra, com os campos que eu estou a usar.

Fiz poucas alterações, então quem for adaptar o mesmo, não esquecer dos créditos.

Código:

Private Sub btDesmembrar_Click()

' desenvolvido por FabioPaes em 24/01/2016
' Adaptado por Silvio em 25/01/2016

Dim DB As Database
Dim rs1, rs2, rs3 As DAO.Recordset
Dim F, I, S As Integer
Dim P, X As String
Set DB = CurrentDb()

Me.Desmembrado = "Valor Total: " & Me.ValorTotalPed & "  Desmembrado em: " & Me.cboQntDesm

Set rs1 = DB.OpenRecordset("SELECT * FROM DPedido WHERE CodSubped = " & Me.Codped & "")

 rs1.MoveLast: rs1.MoveFirst
'Inicia o primeiro loop que gravara os pedidos
For I = 1 To Me.cboQntDesm
P = Me.Codped & "Desm" & I 'Gera um codigo, para podermos recuperar a chave primaria e utilizarmos como chave estrangeira no detalhedo pedido

Set rs2 = DB.OpenRecordset("tblpedido")
'Add os dados do formulário principal que estão faltando ( tblpedido )
    rs2.AddNew
    rs2("Dataped") = Now()
    rs2("idVendedor") = Me.IdVendedor
    rs2("idVendedorOculta") = Me.IdVendedorOculta
    rs2("Vendedor") = Me.Vendedor
    rs2("VendedorOculta") = Me.VendedorOculta
    rs2("CodCliente") = Me.CodCliente
    rs2("Fornecedor") = Me.Fornecedor
    rs2("ForneOculta") = Me.Forneoculta
    rs2("PrazoPgto") = Me.PrazoPgto
    rs2("Prazoculta") = Me.Prazoculta
    rs2("Faturamento") = Me.Faturamento
    rs2("FOculta") = Me.FOculta
    rs2("Cliente") = Me.Cliente
    rs2("NomeFantasia") = Me.NomeFantasia
    rs2("CodClienteFabrica") = Me.CodClienteFabrica
    rs2("ContatoCliente") = Me.ContatoCliente
    rs2("Endereco") = Me.Endereco
    rs2("Numero") = Me.Numero
    rs2("Complemento") = Me.Complemento
    rs2("Bairro") = Me.Bairro
    rs2("CEP") = Me.CEP
    rs2("Cidade") = Me.Cidade
    rs2("Estado") = Me.Estado
    rs2("FoneComercial") = Me.FoneComercial
    rs2("Celular") = Me.Celular
    rs2("whatapps") = Me.WhatApps
    rs2("cnpj") = Me.CNPJ
    rs2("InscrEstadual") = Me.InscrEstadual
    rs2("CPF") = Me.CPF
    rs2("Observacao") = Me.Observacao
    rs2("Confirma") = Me.Confirma
    rs2("EmailNF") = Me.EmailNF
    rs2("CodTransp") = Me.CodTransp
    rs2("Transportadora") = Me.Transportadora
    rs2("Fone") = Me.Fone
    rs2("Whatappst") = Me.WhatAppsT
    rs2("contato") = Me.Contato
    rs2("AvisoImportante") = Me.AvisoImportante
    rs2("Aviso") = Me.Aviso
    rs2("Colecao") = Me.Colecao
    rs2("ColecaoOculta") = Me.ColecaoOculta
    rs2("regiao") = Me.Regiao
 
       
    rs2("Desmembrado") = P 'Coloca o codigo no campo novo para recuperarmos mais em baixo
    'Todos os outros campos aqui
    rs2.Update
    DoCmd.RunCommand acCmdSaveRecord
    'Recupera aqui a Chave Primaria do registro salvo a cima, para usarmos no detalhe do pedido
    F = DLookup("Codped", "tblPedido", "Desmembrado = '" & P & "'")

        Set rs3 = DB.OpenRecordset("DPedido")
        For S = 1 To Int(rs1.RecordCount / (Me.cboQntDesm + 1))
      With rs3
        .AddNew
            X = X & "," & rs1!CodProduto 'A variavel X armazenara todos os codigos dos produtos, para serem utilizados na exclusao no final dos Loops.
            ![CodSubped] = F
            ![CodProduto] = rs1!CodProduto
            ![Referencia] = rs1!Referencia
            ![TipoColecao] = rs1!TipoColecao
            ![Artigo] = rs1!Artigo
            ![TamanhoOculto] = rs1!TamanhoOculto
            ![Cor] = rs1!Cor
            ![34RN] = rs1![34RN]
            ![PP] = rs1![PP]
            ![36P] = rs1![36P]
            ![38N] = rs1![38N]
            ![40G] = rs1![40G]
            ![42GG] = rs1![42GG]
            ![441] = rs1![441]
            ![462] = rs1![462]
            ![483] = rs1![483]
            ![504] = rs1![504]
            ![526] = rs1![526]
            ![568] = rs1![568]
            ![2GG10] = rs1![2GG10]
            ![3GG12] = rs1![3GG12]
            ![4GG14] = rs1![4GG14]
            ![16] = rs1![16]
            ![18] = rs1![18]
            ![20] = rs1![20]
            ![22] = rs1![22]
            ![Qtd] = rs1![Qtd]
            ![PrecoVenda] = rs1!PrecoVenda
            ![TotalOculta] = rs1!TotalOculta
            ![Desconto] = rs1!Desconto
            ![DescontoGeral] = rs1!DescontoGeral
            ![Dgeral] = rs1!Dgeral
            ![TotaItens] = rs1!TotaItens
               
            .Update
            End With
        rs1.MoveNext
        Next
    Next
 
    'A variavel X armazenou os codigos dos produtos lançados nos novos pedidos, nesse formato (5201,5203,5050...)
    X = Right(X, Len(X) - 1) 'Removo a , extra  no inicio
    P = Split(X, ",")
   
    For I = 0 To UBound(P)
    'Realiza a exclusao dos itens que estão no subformulário.
  CurrentDb.Execute "DELETE * FROM DPedido WHERE CodSubped = " & Me.Codped & " AND CodprodutoOculta = '" & P(I) & "'"
  Next

    Me.Recalc
    Me.Refresh
    Me.Requery
    Set DB = Nothing
    Set rs1 = Nothing
    Set rs2 = Nothing
    Set rs3 = Nothing
End Sub

Bacana amigo Silvio! Que bom que deu certo!

Detalhando um pouco mais o Codigo:

Houve a necessidade de criar um campo na tabela de Pedidos chamado “Desmembrado” do tipo Texto curto. Esse campo será responsável por armazenar um código gerado no desmembramento:
( P = Me.Codped & "Desm" & I ), a fim de sabermos qual é a chave primária do pedido desmembrado para no Segundo Loop lançarmos os Produtos.

Me.cboQntDesm é o nome de uma caixa de combinação, onde o cliente seleciona em quantos desmembramento será (2,3,4,5...)

A variável “X” armazenará todos os códigos dos produtos que foram desmembrados do pedido principal ( X = X & "," & rs1!CodProduto ) para no final do desmembramento serem removidos do Pedido Principal:
For I = 0 To UBound(P)
  CurrentDb.Execute "DELETE * FROM DPedido WHERE CodSubped = " & Me.Codped & " AND CodprodutoOculta = '" & P(I) & "'"
Next

Boa tarde Fábio.

Ato falho meu, faltou eu detalhar algumas coisas. Ainda bem que você viu e corrigiu em tempo e a tempo.

[]'s