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!!!!
Existe uma forma de interagir com o sistema sem a necessidade de informar usuario e senha. É a abertura de ambiente usando a função RpcSetEnv. Você pode criar suas rotina, e se colocar RpcSetEnv(cEmp,cFil,,,,GetEnvServer(),{ }), você consegue testar inclusive se tiver consulta em tabelas
No exemplo abaixo, um simples exemplo que como gerar etiquetas, neste exemplo uso o componente TmsPrinter().
Usando NULLIF e COALESCE Algumas vezes podemos nos deparar com a seguinte mensagem “Divide by zero error encountered” numa consulta SQL onde por exemplo temos uma divisão Num caso como esse se o conteúdo do campo D1_QUANT for zero, ocorrerá um erro pois não se divida algo por zero, para evitar um erro indesejável, existe…
Leia mais
Formatar uma string para ser utilizada no clausula IN do comando SELECT em ambiente SQL. Parametros: cString -> String a ser formatada cSep -> Separador das strings Retorno: cRet -> String formatada, conforme exemplo
|
1 |
FormatIn("BA /AB-/CA-/XX+", "/")= "('BA','AB-','CA-','XX+')" |
Exemplo:
|
1 2 3 4 5 6 7 |
cNFs := "000001234/000001445/000001124" cQuery := " SELECT * FROM " + RetSqlName("CB6") + " " + CRLF cQuery += " WHERE D_E_L_E_T_='' " + CRLF cQuery += " AND CB6_NOTA IN " + FormatIn(cNFs,"/") + " " + CRLF cQuery += " AND CB6_SERIE= '" + cSeries + "' " + CRLF cQuery += " ORDER BY CB6_VOLUME " |
Após a abertura do cursor, no alias especificado, a função GetLastQuery() retorna um array, com 5 elementos, onde estão disponíveis as seguintes informações sobre a query executada. [1] cAlias – Alias usado para abrir o cursor. [2] cQuery – Query executada. [3] aCampos – Array de campos com critério de conversão especificados. [4] lNoParser –…
Leia mais
É importante testar erros, antes de executar uma query, para evitar erros de execução.
Eu poderia digitar aqui o passo a passo da instalação do TDS, mas colocarei abaixo o índice de instalação feito pela própria Totvs, que a propósito está bem feito e de fácil entendimento. TOTVS | Developer Studio – Versão 11.2 1. Instalação 2. Iniciando o TOTVS | Developer Studio 3. TDS Server 4. Projetos 5.…
Leia mais