Este assunto é antigo, mas não custa darmos nossa contribuição. Algumas vezes, faz-se necessária a reabertura do estoque. No sistema não existe rotina padrão para se voltar um fechamento. A reabertura do estoque não é recomendada pois pode gerar custos incorretos na apropriação da OP, caso haja OP’s em aberto. Existem formas para executar a…
Leia mais
Vai aí uma dica de como criar uma pergunta para usar em suas rotinas onde aparece uma tela com caixa de seleção.
Sabem aquela telinha que exibe um erro e depois derruba o smartclient? Pois então, tem como exibir o erro mas continuar o processo até o ponto do erro sem derrubar o client.
Segue um pequeno exemplo de como abrir seu pedido de vendas em modo de edição através de sua customização.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Static Function AlteraPV(nRecno) Local aArea := GetArea() Private Inclui := .F. Private Altera := .T. Private nOpca := 1 Private cCadastro := "Pedido de Vendas" Private aRotina := {} DbSelectArea("SC5") dbSetOrder(1) SC5->(DbGoTo(nRecno)) MatA410(Nil, Nil, Nil, Nil, "A410Altera") SC5->(DbCloseArea()) RestArea(aArea) Return |
Exemplo:
|
1 |
AlteraPV(56599) //Informe o numero do Recno ou você pode informar SC5->(Recno()) |
Olá, vai aí mais uma dica. Você fez uma customização com os pedido de compra e quer abrir o pedido para alteração a partir de sua tela. Para isso usaremos a função MATA120. O processo é bem simples, passa-se o recno e a opção desejada. Exemplo:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Static Function AlteraPC(nRecno,nOpc) Local aArea := GetArea() Local aAreaSC7 := SC7->(GetArea()) dbSelectArea("SC7") MsGoto(nRecno) //Mata120(ExpN1,ExpA1,ExpA2,ExpN2,ExpA1) /* ExpN1 = 1-Pedido de compras ou 2-Autorizacao de entrega ExpA1 = Array Cabecalho para Rotina Automatica ExpA2 = Array Itens para Rotina Automatica ExpN2 = Opcao do aRotina para Rotina Automatica ExpA1 = Apresenta a Dialog da Rotina em Rotina Automatica (.T. ou .F.) */ Mata120(1,/*aCabec*/,/*aItens*/,nOpc,.T.) RestArea(aAreaSC7) RestArea(aArea) Return .T. |
Exemplos:
|
1 2 3 |
AlteraPC(67081,2) //Visualizar AlteraPC(67081,4) //Alterar AlteraPC(67081,5) //Excluir |
A necessidade aqui é de incluir numa determinada tabela com um select de outra, mas não se esquecendo de tratar o R_E_C_N_O_, para evitar que ocorrar erro de duplicidade. Ambiente: MSSQL, ORACLE Lembrando que quando inserimos registro de uma tabela em outros os campos a serem inseridos devem ser iguais. Exemplo: Tabela 1 Campo1 int auto_increment…
Leia mais
Já tentou importar um arquivo texto para a rotina de orçamento? É uma tristeza só, a rotina de orçamento utiliza uma tabela temporária chamada TMP1 e por conta disso temos algumas pequenas dificuldades em suas validações. Mas com um certo jeitinho, conseguimos driblar e resolver os problemas do dia a dia com esta rotina. Hoje,…
Leia mais
A arquitetura Model-View-Controller ou MVC, como é mais conhecida, é um padrão de arquitetura de software que visa separar a lógica de negócio da lógica de apresentação, permitindo desenvolvimento, teste e manutenção isolados.
Outro dia, me pediram um relatório que permitisse imprimi-lo em vários idiomas (português,inglês,espanhol e alemão). Então fiquei pensando, qual seria a melhor escolha para desenvolver.
Há muito tempo atrás encontrei um código, criado por Caio Graco, pelo fonte que encontra-se comigo, é de 2006, eu o adaptei a minha necessidade. A idéia do fonte é pegar o arquivo txt gerado pelo banco central, baixá-lo, ler linha a linha, pegar o codigo da moeda e seu valor correspondente (valor de compra e venda).…
Leia mais
O exemplo abaixo, demonstro a criação de um relatório em tReport utilizando 2 seções. Tentei deixar o mais comentado possível, mas qualquer dúvida, comente!!!!
Existem duas formas de se conectar ao SQL Server com PHP: Conexão ODBC Conexão nativa do PHP – mssql_connect() 1. Usando a conexão ODBC Esta conexão é muito utilizada quando não temos a conexão nativa, seu uso é bem simples, cria-se a conexão ODBC igual a que já criamos para acesso ao Protheus. Sintaxe:
|
1 2 3 4 5 6 7 8 9 10 11 |
<? $conexao = odbc_connect("DRIVER={SQL Server}; SERVER=servidor; DATABASE=bancodedados;", "usuario","senha"); $consulta = "SELECT * FROM bancodedados.dbo.tabela"; $resultado = odbc_exec($conexao, $consulta) while($campos = odbc _fetch_array($resultado)) { echo $campos['campo'].'<br>'; } ?> |