https://www.youtube.com/watch?v=7dGeu6cFLZU
Nessa aula vou Mostrar como Criar as duplicatas quando eu gravar o pedido
Pode ser usado essa rotina para nota fiscal,nota de servico,ou outros
// Vamos Gravar o Pedido e os itens do pedido
HReset(pedido)
pedido.data_emissao=DateSys() // Aqui vai colocar a data de hoje
//pedido.valor_total=EDT_Totalprodutos//total produtos
pedido.ClienteID=EDT_ClienteID
pedido.valor_total=0
IF HAdd(pedido)=False THEN
Error("nao gravou")
ELSE
HAdd(pedido)
// agora vou varrer a tabela para gravar os itens do pedido
FOR ALL ROW OF TABLE_pedidos
HReset(pedido_itens)
pedido_itens.sequencia=TABLE_pedidos.COL_Seq
pedido_itens.quantidade=TABLE_pedidos.COL_quantidade
pedido_itens.valor_venda=TABLE_pedidos.COL_ValorVenda
pedido_itens.valor_total=TABLE_pedidos.COL_ValorTotal
pedido_itens.MaterialID=TABLE_pedidos.COL_codigo_material
pedido_itens.PedidoID=pedido.pedidoID
pedido.valor_total+=TABLE_pedidos.COL_ValorTotal // estou gravando os totais
HAdd(pedido_itens)
END
HModify(pedido)
//Aqui vou gravar as duplicatas
n_numero_parcelas is int = TABLE_condicoes_parcela.COL_numero_parcela[rowCount]
FOR ALL ROW OF TABLE_condicoes_parcela
HReset(duplicata_receber)
//duplicata_receber.duplicata_receberID // esse nao vou fazer nada, pois é id automatico
IF n_numero_parcelas=1 THEN
duplicata_receber.titulo_numero="Ped no "+pedido.pedidoID
ELSE
duplicata_receber.titulo_numero="Ped no "+pedido.pedidoID+" - "+TABLE_condicoes_parcela.COL_numero_parcela+"/"+n_numero_parcelas
END
duplicata_receber.data_emissao=DateSys() //data do dia
duplicata_receber.data_vencimento=TABLE_condicoes_parcela.COL_data_vencimento
duplicata_receber.valor_titulo=TABLE_condicoes_parcela.COL_valor_titulo
duplicata_receber.data_recebimento=Null
duplicata_receber.valor_desconto=0
duplicata_receber.valor_acrescimo=0
duplicata_receber.valor_recebido=0
duplicata_receber.ClienteID=pedido.ClienteID
duplicata_receber.PedidoID=pedido.pedidoID
HAdd(duplicata_receber)
END
//
END
// vamos zerar as variaveis
EDT_MaterialID=0
EDT_Quantidade=0
EDT_Valor_venda=0
EDT_Valor_total=0
//vou ler a tabela para pegar total
TableDeleteAll(TABLE_pedidos) // Excluindo todos dados da Tabela
ReturnToCapture(EDT_MaterialID)
Blog - Curso Iniciante /1/... - Inicio
Blog - Curso Iniciante /2/... - Menu
Blog - Curso Iniciante /3/... Campos
Blog - Curso Iniciante /4/... - Duvida/Style
Blog - Curso Iniciante /5/... - Menu
Blog - Curso Iniciante /6/... - Menu 2
Blog - Curso Iniciante /7/... - If / ShellExecute
Blog - Curso Iniciante /8/... - ReturntoCapture
Blog - Curso Iniciante /9/... - Info
Blog - Curso Iniciante /10/.. - DateSys - Now
Blog - Curso Iniciante /11/... - Criando Analise Agenda
Blog - Curso Iniciante /12/... - Menu , Agenda
Blog - curso Iniciante /13/... - HreadSeek
Blog - curso Iniciante /14/... - For Each - Percorrer Tabela
Blog - Curso Iniciante /15/... - Query Consultas
Blog - Curso Iniciante /16/... - Tabela Relatorio
Blog - Curso Iniciante /17/... - Relatorio Criando
Blog - Curso Iniciante /18/... - Relatorio Manual
Blog - Curso Iniciante /19/.. - Menu Popup
Blog - Curso Iniciante /20/... - Data - Separar dia mes e ano
Blog - Curso Iniciante /21/... - Time - Separar hora/min/seg
Blog - Curso Iniciante /22/... - Operadores
Blog - Curso Iniciante /23/... - String Igualdade
Blog - Curso Iniciante /24/... - Switch / Case
Blog - Curso Iniciante /25/... - LOOP
Blog - Curso Iniciante /26/... - FOR
Blog - Curso /27/... - Extern
Blog - Curso /28/... - My
Blog - Curso /29/... Procedures
Blog - Curso /30/... HSave .. - Inclui Um Registro
Blog - Curso /31/... - Hsave - Altera um Registro
Blog - Curso /32/... - HDelete - Exclui Registro(s)
Blog - Curso /33/... - Relatorio
Blog - Curso /34/... - Dialog
Blog - Curso /35/... - Input
blog - Curso /36/... - Combox
Blog - Curso /37/... Combox Tabela
Blog - Curso /38/... List Box
Blog - Curso /39/... - Analise Agenda/Ligacoes
Blog - Curso /40/... - Rad - Tabela Relacionada Agenda/Ligações
Blog - Curso /41/... - Tabela Relacionada Manual
Blog - Curso /42/... - Dica Tela/Code Separado
Blog - Curso /43/... - Mapa /1..
Blog - Curso /44/... - Mapa /2.. Imprime
Blog - Curso /45/... - Fechar Programa - EndPrograma()
Blog - Curso /46/... - Camera Habilita/Desabilita
Blog - Curso /47/... - Tabela e Formulario - Configurar Cnpj
Blog - Curso /48/... - Camera - Tirar Uma Foto e Gravar Imagem
Blog - Curso /49/... - Reports e Queies - Instalacao
Blog - Curso /50/... Reports e Queies - Relatorio - Como Gerar
Blog - Curso /51/... Pedidos/Orcamento 1/... Analise
Blog - Curso /52/... Pedidos/Orcamento 2/.. Analise Windev
Blog - Curso /53/... Pedidos/Orcamento 3/... Relacionamento
Blog - Curso /54/... Pedidos Orcamento 4/... Rad
Blog - Curso /55/... Pegar Quantidade e Codigo - Separador *
Blog - Curso /56/... Pegar Retorno de Uma Tabela e colocar Campo
Blog - Curso /57/... Xml - Ler Conteudo Tags e Importar Pedido
Blog - Curso /58/... Ini - Ler e Gravar
Blog - Curso /59/... Pedidos Orcamento 5/... Inicio Digitacao Pedido
Blog - Curso /60/... Pedidos Orcamento 6/... Digitando Iten Pedido
Blog - Curso /61/... Pedidos orcamento 7/... Gravando Pedido e Itens
Blog - Curso /62/... Pedido Orcamento 8/... Consulta cliente
Blog - Curso /63/... Tabela - Ancorar Coluna
Blog - Curso /64/... Tabela - Esconder ou Mostrar Coluna
Blog - Curso /65/... RSS
Blog - Curso /66/... Pedido Orcamento 9/... Consulta Material
Blog - Curso /67/... Tabelas, Control F Pesquisa Toda Tabela /Contenha/Cor Fundo
Blog - Curso /68/... Pedidos Orcamento 10/... Planos - Condições Pagamento
Blog - Curso /69/... - Calculadora dentro do Campo Valor
Blog - Curso /70/... Mapa - Itinerario
Blog - Curso /71/... Tabela - Alterar Nome Coluna
Blog - Curso /72/... Botal Fazer Menu popup
Blog - Curso /73/... Debug - Como Usar
Blog - Curso /74/... Tabela Alinhar Coluna Lado Esquerdo
Blog - Curso /75/... Pedidos Orcamento 11/... Quantidade /Mascara/Mudar
Blog - Curso /76/... YesNo - Pergunta Se Deseja Eliminar
Blog - Curso /77/... Select - Case - Query
Blog - Curso /78/... Pedido/Orcamento 12/... - Analise Cond.Pagto
Blog - Curso /79/... Campos - Como Alterar configuracao via Codigo
Blog - Curso /80/... Pedido/Orcamento 13/... - Tabela,Gerar Condicoes/Parcelas
Blog - Curso /81/... Configuracao Trocar Exe para Wdl ou outro
Blog - Curso /82/... Utilitarios - PopUp - Aumento Precos Materiais
Blog - Curso /83/... TableEnableFilter - Digita Nome e Filtra
Blog - Curso /84/... Dica Copiar Colar Texto Ou Imagen Pdf
Blog - Curso /85/... SElect Como Usar Wizard
Blog - Curso /86/... Radio - Colocar tudo Mesma Linha
Blog - Curso /87/... Procedure - Melhoria Versao20 - Parametros
Blog - Curso /88/... Style - Tabela Como Alterar
Blog - Curso /89/... Style - Tab Como Alterar
Blog - Curso /90/... Pedido/Orcamento 14/... - Style - Mudando Botao Procura
Blog - Curso /91/... - Pedido/Orcamento 15/... - Pedido - Totalizar Colunas Tabela
Blog - Curso /92/... Backup - Hyperfile
Blog - Curso /93/... Debug - STOP
Blog - Curso /94/... Tabela - Alterar Cor da Coluna - Texto
Blog - Curso /95/... Select Max - Pegar o Numero Proxima Nota
Blog - Curso /96/... Tabela Divisao de Muitas Colunas
Blog - Curso /97/... Analise - Configurar Campo para Vir Automatico Combox
Blog - Curso /98/... Tabela - Double click - Entrar direto Alteração do Cliente
Blog - Curso /99/... Tabela MultiSeleção
Blog - Curso/100/... Tabela - TableMoveLine - Move Linha Baixou ou Cima
Blog - Curso/101/... TableAjust - Ajustar Tabela com Colunas
Blog - Curso/102/... TableSort - Ordem nas Colunas
Blog - Curso/103/... Tabelas Somar Manualmente rowTotal
Blog - Curso/104/... Pedidos/Orcamento 16/... Melhorando Visual Incluir Pedido
Blog - Curso/105/... Pedidos 17/... Digitacao Iten e Gera Tabela
Blog - Curso/106/... Fazer Tecla Atalho Direto no Cliente
Blog - Curso/107/... Como Fazer para nao passar Campo
Blog - Curso/108/... Pedido 18/... Menu Inicial Ajustando Tela
Blog - Curso/109/... Select Color - Como Selecionar uma Cor
Blog - Curso/110/... SelectionColor - Mudar cor Seleção Table/Combox/Listbox
Blog - Curso/111/... Stc - Como fazer como se fosses uma ajuda para dar dica Cliente
Blog - Curso/112/... ListBox - Mostrar como se fosse ajuda e selecionar
Blog - Curso/113/... Close - Window - Como mandar Varios Retornos
Blog - Curso/114/... Pedido 19/... Salvar Digitacao do pedido
Blog - Curso/115/... Converter Code de Frances para Ingles ou Contrario
Blog - Curso/116/... Pedido 20/... Recuperar Pedido Digitado
Blog - Curso/117/... Pedido 21/... Gravar Pedido/Tabela pedidos e itens pedido
Blog - Curso/118/... Como Nao Mudar Nome Variavel Windev
Blog - Curso/119/... Pedido 22/... Calcular Titulos no Pedido
Blog - Curso/120/... Pedido 23/... Pedido - Calculo condições
Blog - Curso/121/... Faltou Luz e Recuperei uma Window do Projeto Windev
Blog - Curso/122/... Pedido 24/... Calcular Titulo Modelo2
Blog - Curso/123/... Pedido 25/... Tabela - Criando Duplicata Receber
Blog - Curso/124/... Pedido 26/... Duplicata Linkando com Pedido e cliente
Blog - Curso/125/... Pedido 27/... Criando Tabela Contas Receber
Blog - Curso/126/... Pedido 28/... Gravando Duplicatas ao Gerar Pedido
Blog - Curso/127/... ExecuteProcess
Blog - Curso/128/... Code - Marcar Pontos - MARK
Blog - Curso/129/... Pedido 29/... Pedido - Iniciando Relatorio
Blog - Curso/130/... Menu Ribbon - Alterar Cor Seleção
Blog - Curso/131/... Pedido 30/... Pedido Gerar Tabela Relatorio
Blog - Curso/132/... Pedido 31 - Listar Pedido
Blog - Curso/133/... Pedido 32 - Windows Mdi
Blog - Curso/134/... Code Bricks
Nenhum comentário:
Postar um comentário