VIDEO WINDEV 1366 ORDEM COMPRA PARTE 11 COPIAR ORDEM 2
VAMOS FINALIZAR A ETAPA DE COPIAR ORDEM DE COMPRA PARTE 2
PARTE 1 ORDEM COMPRA 001 WINDEV AULA 1354
TABELA NAO/MES ORDEM COMPRA 2 WINDEV AULA 1355
SQL TABELA ANO MES - ORDEM COMPRA 3 WINDEV AULA 1356
SQL TABELA ORDEM COMPRA 4 WINDEV AULA 1358
TABELA ORDEM COMPRA 5 WINDEV AULA 1359
SQL/TABELA/DATA ORDEM COMPRA 6 WINDEV AULA 1360
ITEN ORDEM COMPRA 7 WINDEV AULA 1361
TABELA ORDEM COMPRA 8 WINDEV AULA 1362
EXCLUIR ORDEM COMPRA 9 WINDEV AULA 1364
DUPLICAR ORDEM DE COMPRA - 10 - AULA 1365
DUPLICAR FINAL - ORDEM DE COMPRA - 11 - AULA WINDEV 1366
// VAMOS PERGUNTAR SE ELE DESEJA REALMENTE DUPLICAR
// LET'S ASK IF HE WANTS TO REALLY DUPLICATE
// AMOS PREGUNTAR SI EL DESEA REALMENTE DUPLICAR
IF YesNo("DESEJA DUPLICAR") THEN
// DUPLICAR ORDEM DE COMPRA
HReadSeekFirst(ordem_compra,id_ordem_compra,TABLE_RELACAO_ORDEM_COMPRA.COL_Id_ordem_compra)
// PRIMEIRO VAMOS LER A ORDEM DE COMPRA
// FIRST LET'S READ THE ORDER OF PURCHASE
// PRIMER VAMOS LEER EL ORDEN DE COMPRA
IF HFound(ordem_compra) THEN
// SE ENCONTROU A ORDEM DE COMPRA
// IF YOU HAVE FINDED THE ORDER TO PURCHASE
// SE ENCONTRÓ EL ORDEN DE COMPRA
ordem_compra.data_emissao=DateSys()
// VAMOS COLOCAR A DATA DE ORDEM DE COMPRA COMO A DATA DE HOJE
// LET'S PUT THE BUY ORDER DATE AS TODAY'S DATE
// VAMOS COLOCAR LA FECHA DE ORDEN DE COMPRA COMO LA FECHA DE HOY
ORDEM_COMPRA_POR_EMPRESA()
HAdd(ordem_compra)
// VAMOS ADICIONAR ORDEM DE COMPRA
// LET'S ADD PURCHASE ORDER
// VAMOS AGREGAR ORDEN DE COMPRA
COPIA_ITENS_ORDEM()
//// AGORA VOU ATUALIZAR A RELAÇAO DE ORDEM DE COMPRA
//// NOW I AM GOING TO UPDATE THE PURCHASE ORDER RELATIONSHIP
//// AHORA VOY ACTUALIZAR LA RELACIÓN DE ORDEN DE COMPRA
EDT_DATA_MOVIMENTO=DateSys()
d_data_ is Date=EDT_DATA_MOVIMENTO
MOSTRA_ORDEM_COMPRA_TABELA(d_data_,d_data_)
END
END
// CRIAR UMA PROCEDURE INTERNA COPIA ITENS ORDEM
// CREATE AN INTERNAL PROCEDURE COPY ITEMS ORDER
// CREAR UNA PROCEDURE INTERNA COPIA ITENS ORDEN
INTERNAL PROCEDURE COPIA_ITENS_ORDEM()
// VOU LER TODA TABELA DE ITENS
// I'LL READ ANY TABLE OF ITEMS
// VOY LEER TODA TABLA DE ITENS
FOR EACH ROW OF TABLE_ITEM_ORDEM_COMPRA_LER
// VOU LER O REGISTRO DO ITEN DA NOTA
// I WILL READ THE ITEM REGISTER OF THE NOTE
// VOY LEER EL REGISTRO DEL ITEM DE LA NOTA
HReadSeekFirst(ordem_compra_item,id_ordem_compra_item,TABLE_ITEM_ORDEM_COMPRA_LER.COL_Id_ordem_compra_item)
// SE ENCONTRADO
// Was found
// SI ENCONTRADO
IF HFound(ordem_compra_item) THEN
// VAMOS AGORA, COLOCAR O NUMERO DE ORDEM COMPRA ATUAL NO ITEM
// LET'S GO NOW, PUT THE CURRENT ORDER PURCHASE NUMBER IN ITEM
// VAMOS AHORA, COLOCAR EL NUMERO DE ORDEN COMPRA ACTUAL EN EL ITEM
ordem_compra_item.Id_ordem_compra=ordem_compra.id_ordem_compra
// VAMOS ZERAR ALGUMAS INFORMAÇÕES
// LET'S DOWNLOAD SOME INFORMATION
// VAMOS ZERAR ALGUNAS INFORMACIONES
ordem_compra_item.quantidade_entregue=0
ordem_compra_item.saldo=0
ordem_compra_item.data_entrega=""
ordem_compra_item.observacao_entrega=""
ordem_compra_item.id_nota_fiscal=0
ordem_compra_item.id_empresa_nota_fiscal=0
ordem_compra_item.data_nota_fiscal=""
// VAMOS GRAVAR O ITEM DA ORDEM DE COMPRA
// LET'S RECORD THE ITEM OF THE ORDER TO PURCHASE
// VAMOS GRABAR EL ITEM DEL ORDEN DE COMPRA
HAdd(ordem_compra_item)
END
END
END
INTERNAL PROCEDURE ORDEM_COMPRA_POR_EMPRESA()
// COMO NOSSO SISTEMA É MULTI EMPRESA, CADA ORDEM VAI COMECAR COM 1,
// ENTAO VAMOS PROCURAR O PROXIMO CODIGO DA ORDEM DESSA EMPRESA
// AS OUR SYSTEM IS MULTIPLE COMPANY, EVERY ORDER WILL COME WITH 1
// LET'S SEARCH FOR THE NEXT CODE OF THE ORDER OF THAT COMPANY
// COMO NUESTRO SISTEMA ES MULTI EMPRESA, CADA ORDEN VA COMERCIAL CON 1
// ENTREGA VAMOS BUSCAR EL PROXIMO CODIGO DEL ORDEN DE ESTA EMPRESA
//-- EMPRESA
n_proximo is int=1
// CRIEI UMA VARIAVEL PROXIMO E VAI COMECAR COM 1
// I CREATED A VARIABLE NEXT AND WILL START WITH 1
// VENDO UNA VARIABLE PROXIMO Y VA COMERCIAL CON 1
_data_source is Data Source
// CRIEI UMA DATA SOURCE
// CREATED A DATA SOURCE
// CRIEI UNA FECHA SOURCE
_sql is string=[
SELECT
Max(ordem_compra.id_empresa_ordem_compra) as ultimo
FROM
ordem_compra
where
ordem_compra.id_empresa=#id_empresa#
]
// CRIEI UM SQL STRING, COM O SQL QUE VAI ACHAR O ULTIMO CODIGO
// CREATE A SQL STRING, WITH THE SQL THAT WILL FIND THE LAST CODE
// CRIEI UN SQL STRING, CON EL SQL QUE VA A HACER EL ULTIMO CODIGO
_sql=Replace(_sql,"#id_empresa#",gnEmpresaCodigo)
// COM O COMANDO REPLACE VOU SUBSTITUIR A STRING #ID_EMPRESA# PELO CONTEUDO
// WITH THE COMMAND REPLACE YOU WILL REPLACE THE STRING # ID_EMPRESA # BY THE CONTENT
// CON EL MANDO REPLACE VUELVE SUSTITUIR LA STRING # ID_EMPRESA # POR EL CONTENIDO
IF HExecuteSQLQuery(_data_source,hQueryDefault,_sql) THEN
// SE A EXECUÇÃO DA QUERY EXISTIR
// IF THE EXECUTION OF QUERY EXIST
// SI LA EJECUCIÓN DE LA QUERY EXISTIR
HReadFirst(_data_source)
// LENDO O RESULTADO
// READING THE RESULT
// LEYENDO EL RESULTADO
n_proximo=_data_source.ultimo+1
// ESTOU SOMANDO 1 NA VARIAVEL PROXIMO
// I'M TAKING 1 IN THE VARIABLE NEXT
// ESTOY SOMANDO 1 EN LA VARIABLE PROXIMO
END
ordem_compra.id_empresa_ordem_compra=n_proximo
// ESTOU COLOCANDO O PROXIMO NUMERO NO ID EMPRESA ORDEM DE COMPRA
// I AM PUTTING THE NEXT NUMBER IN THE COMPANY ID ORDER PURCHASE
// ESTOY COLOCANDO EL PROXIMO NUMERO EN EL ID EMPRESARIO ORDEN DE COMPRA
//-- EMPRESA
END
Nenhum comentário:
Postar um comentário