sunset

A função incorre no mesmo erro o separador e a quantidade de caracteres em uma unica linha, mas consegui contornar, contando os separadores da linha, alguns dados não são capturados, então estou "guardando" esses dados para fazer uma edição manual no CSV pra reduzir as informações e o arquivo conseguir ser lido. Grato a todos.

Sim, usei mas de outra forma, coloquei para contar quantos ; teria na linha, então quando contagem esta diferente de 30 eu ignoro a linha, ja resolve meu problema, de não abortar o processo com erro, porem o problema original e de fato a horizontal de caracteres que o fw teria limite com certeza.

Com HB_ATokens(oFile:ReadLine(), '";"') , eu consigo passar os 3 " ; " , dentro de ' ";" ' , consigo ler a quebra corretamente assim, meu problema esta na quantidade de colunas. Estou fazendo na mão mesmo, quando há a quebra por causa da quantidade de colunas eu edito o arquivo TXT manualmente retiro o excedente, leio novamente e adiciono a informação na mão direto no banco. E VIDA QUE SEGUE.

Boa noite. Usando o atoken, tenho um problema porque no meio dos dados existem endereços que tem ; então ele faz a quebra, se usar (";"), o atokens já apresenta erro no inicio da leitura. Segue aqui um exemplo do ; no meio do texto fazendo a quebra. "33605671";"0001";"35";"1";"CASEIROS POR AMOR";"02";"20190513";"00";"";"";"20190513";"5620104";"4721104,5612100";"RUA";"CARDEAL";"S/N";"QUADRA 016;LOTE 0036;CASA 01";"SETOR COMENDADOR WALMOR";"74969283";"GO";"9227";"62";"84361276";"";"";"";"";"dilyannelopes12@gmail.com";"";"" "33605671"; "0001"; "35"; "1"; "CASEIROS POR AMOR"; "02"; "20190513"; "00"; ""; ""; "20190513"; "5620104"; "4721104,5612100"; "RUA";"CARDEAL"; "S/N"; "QUADRA 016;LOTE 0036;CASA 01"; ******************* aqui "SETOR COMENDADOR WALMOR"; "74969283"; "GO"; "9227"; "62"; "84361276"; ""; ""; ""; ""; "dilyannelopes12@gmail.com"; ""; ""

Memoline estoura a memoria, a o divisor dos vetores seria o ; as , fazem a divisão dos dados dentro de um vetor.

Com 1.057 ja funciona, problema e editar o arquivo com 480 mil linhas.

A principio essa linha, era para retornar 30 elementos no vetor com hb_tokens separando por ";", porem existe um limite, essa linha completa tem 1.073 colunas, sempre retorna erro quando carrego o vetor dela, porem se for deletando colunas, num certo limite o vetor alimenta. a origem um arquivo CSV. "63688337";"0001";"53";"1";"MATERICON";"02";"20051103";"00";"";"";"19910506";"4120400";"1921700,2330301,2330302,2330303,2330304,2330305,2330399,2399199,2539001,2869100,2920401,3299003,3314717,3319800,3702900,3811400,3812200,4211101,4211102,4212000,4213800,4221901,4221902,4222701,4222702,4223500,4291000,4292801,4292802,4299599,4311801,4311802,4312600,4313400,4319300,4322301,4329104,4329199,4330401,4330402,4330404,4330405,4330499,4391600,4399101,4399102,4399103,4399104,4399105,4399199,4520005,4618402,4645101,4664800,4669999,4679699,4681801,4681802,4731800,4742300,4744001,4744002,4744003,4744004,4744005,4744099,4754701,4773300,4789005,4921302,4922101,4923002,4929902,4930201,5021101,5021102,5620101,6821802,7112000,7490199,7711000,7719501,7721700,7729203,7731400,7732201,7739001,7739002,7739003,7739099,7830200,8111700,8122200,8130300,9430800";"AVENIDA";"TORQUATO TAPAJOS";"0";"LOTE 12/A GLEBA 01 PROF FRED VEIGA";"AREA DE TRANSICAO URBANA";"69039125";"AM";"0255";"92";"92997177";"";"";"";"";"CHRISTIAN_ADOLFO@HOTMAIL.COM";"";"" aDados := HB_ATokens(oFile:ReadLine(), '";"') --------------------------------------------------------------------------------------------------- Descricao do problema:Erro BASE/1132 Erro de limite: acesso de array Args: [ 1] = A { ... } ( M->__ValToPrgExp_Array := Array(24), M->__ValToPrgExp_Array[1] := '"63688337"', M->__ValToPrgExp_Array[2] := '"0001"', M->__ValToPrgExp_Array[3] := '"53"', M->__ValToPrgExp_Array[4] := '"1"', M->__ValToPrgExp_Array[5] := '"MATERICON"', M->__ValToPrgExp_Array[6] := '"02"', M->__ValToPrgExp_Array[7] := '"20051103"', M->__ValToPrgExp_Array[8] := '"00"', M->__ValToPrgExp_Array[9] := '""', M->__ValToPrgExp_Array[10] := '""', M->__ValToPrgExp_Array[11] := '"19910506"', M->__ValToPrgExp_Array[12] := '"4120400"', M->__ValToPrgExp_Array[13] := '"1921700,2330301,2330302,2330303,2330304,2330305,2330399,2399199,2539001,2869100,2920401,3299003,3314717,3319800,3702900,3811400,3812200,4211101,4211102,4212000,4213800,4221901,4221902,4222701,4222702,4223500,4291000,4292801,4292802,4299599,4311801,4311802,4312600,4313400,4319300,4322301,4329104,4329199,4330401,4330402,4330404,4330405,4330499,4391600,4399101,4399102,4399103,4399104,4399105,4399199,4520005,4618402,4645101,4664800,4669999,4679699,4681801,4681802,4731800,4742300,4744001,4744002,4744003,4744004,4744005,4744099,4754701,4773300,4789005,4921302,4922101,4923002,4929902,4930201,5021101,5021102,5620101,6821802,7112000,7490199,7711000,7719501,7721700,7729203,7731400,7732201,7739001,7739002,7739003,7739099,7830200,8111700,8122200,8130300,9430800"', M->__ValToPrgExp_Array[14] := '"AVENIDA"', M->__ValToPrgExp_Array[15] := '"TORQUATO TAPAJOS"', M->__ValToPrgExp_Array[16] := '"0"', M->__ValToPrgExp_Array[17] := '"LOTE 12/A GLEBA 01 PROF FRED VEIGA"', M->__ValToPrgExp_Array[18] := '"AREA DE TRANSICAO URBANA"', M->__ValToPrgExp_Array[19] := '"69039125"', M->__ValToPrgExp_Array[20] := '"AM"', M->__ValToPrgExp_Array[21] := '"0255"', M->__ValToPrgExp_Array[22] := '"92"', M->__ValToPrgExp_Array[23] := '"92997177"', M->__ValToPrgExp_Array[24] := "", M->__ValToPrgExp_Array ) [ 2] = N 25

Boa noite Alguém sabe o limite de colunas para leitura com Ttxtfile() ? oFile := TTxtFile():New(cNome_ArquivoTXT) Grato.

Boa noite Tem muita coisa para integrar mas a grosso modo e uma comunicação via API REST via jSON, mas antes e bom voce conhecer bem a plataforma, como saber bem manusear para alimentar com as informações corretas, e depende do tipo de integração se e somente subir produtos ou se vai fazer a integração de 100% dela. https://shopify.dev/docs/admin-api/rest/reference/products/product#create-2021-04 POST/admin/api/2021-04/products.json GET /admin/api/2021-04/products/632910392.json?fields=id,images,title

Boa tarde Estou querendo uma aula sobre o uso de UNIQUE X PRIMARY, atualmente uso a sqlrdd, então, qual a diferença no uso delas, o meu problema tenho que fazer o dump de uma banco para outra base e na outra base o banco esta configurado como primary key, então quando o dump esta subindo apresenta erro, no FW tenho como ja usar PRIMARY inves de UNIQUE. meu banco esta assim atualmente quando e criado o sr_recno ja vem com a unique. Grato por qualquer luz no caminho.

Bom dia e bom sábado a todos. Usei a sugestão do FILTER mesmo, usei o sr_recno filtrando ate 2 milhões de registro que ficou um tempo "usável" de carregamento da tela e da manipulação no xBrowse, quando o usuário precisar pesquisar algum registro, nome, cnpj e etc... então antes do Seek, estou FILTRANDO o banco "todo" com os 46 milhões de registro, exibo o conteúdo e após volto a filtro para 2 milhões de registros, se não fizer isso o xbrowse tenta carregar toda tabela novamente e só vai liberar 20 minutos depois a tela. Agora usando o banco de dados aberto normal "sem exibição", funciona sem problemas, esta base estou usando para cadastrar clientes e fornecedores com CNPJ, na ficha do cliente quando digitar o CNPJ ele ja captura todos os dados, funciona sem problemas, rapido e etc... posteriormente vou montar um pequeno WS ou deixar numa base online para consultas via mySQL tambem, porem como o banco tem 29 GB não consigo colocar em nenhum site que não va ter um custo alto. Grato a todos pelas dicas.

Pelo menos o site continua no ar apos encerrarem as atividades, porem não abre pelo Chrome.

SIM - RDDSETDEFAULT("SQLRDD")

MYSQL 5.7 Na verdade eu estou abrindo a tabela como se fosse um DBF ainda use estadual alias estad new shared if neterr() msginfo("Arquivo está em uso em modo exclusivo","Informação") close data retu endif set index to estadual e usando o ALIS no xbrwse @ 0,0 XBROWSE oLbxEstadual ; Fields Iif(len(alltrim(estad->numecgc)) = 11,TRANSFORM(estad->numecgc,"@R 999.999.999-99"),TRANSFORM(estad->numecgc,"@R 99.999.999/9999-99")),; estad->nomecli ,; estad->inscest ,; estad->siticms ,; estad->cida_de ,; estad->esta_do ,; estad->correio ,; estad->telefon ; Headers "Cnpj" ,; "Nome" ,; "Inscrição" ,; "Situação" ,; "Cidade" ,; "UF" ,; "Correio" ,; "Telefone" ; Fieldsizes 170,400,90,100,200,25,400,150; Alias "estad" ; Mas acredito que desta forma não vou ter resultado, vou executar um SELECT conforme indicado teria que colocar o resultado num array ?

Bom Dia Existe alguma forma de limitar a quantidade de registros a serem exibidos quando iniciar o XBROWSE, estou com uma base com 41.523.181 registros, quando inicio a tela com o xbrowse, praticamente fica 2h travada, com toda certeza é a quantidade de registros, então gostaria de saber se tenho como limitar esse carregamento com algum argumento no xbrowse para ele tipo carregar uns 5.000 e depois ir paginando e carregando a medida que for navegando na base, uso mysql. grato.

Boas, alguém usa as soluções de boleto da https://www.cobrebem.com/ ? O site vai morrer e estava querendo ver se agrupava um pessoal, pra entrar em contato em massa com eles, e ver com eles se disponibilizava tudo via GITHUB. tenho uma base boa usando não quero nem novas licenças só manter as atuais em uso para novos bancos caso precisem. Acredito que seja o que muita gente também use a lib.

Obrigado, pelas dicas De fato funciona, desde que eu não use a RIBBONBAR, então com ela ativa, ao voltar para o menu, a ação quando a RIBBONBAR está ativa ele fica como se tivesse pressionado o ALT das teclas de atalho. Existe alguma forma de não chamar as teclas de atalho do key para o ribbonbar e usa-las para o MENU ?

Então estou com uma tela de pedidos aberta em 30 maquinas, e 10 usuarios estão incluindo pedidos, ate ai tudo bem APPEND em tudo sem problemas, mas 20 deles estão alterando pedidos, e dentro desses 20 pedidos tem 2 vendedores tentando abrir o mesmo pedido, 1 consegue e o outro não, OK, então temos os restante dos 18 vendedores alterando pedidos o SEMAFARO e criado para cada pedido ? ou vou travar o banco geral, ate um vendedor liberar o pedido ?

Bom dia. Existe uma solução mais simples vou relatar, mas antes vale saber que, a contabilidade esta correta quando afirma que na atividade da empresa não tem prestação de serviços, porem mesmo que tivesse a prestação de serviços como entrega, de fato o serviço de entrega, só poderia ser cobrado se fosse o serviços de entrega feito por terceiros como MOTOBOY ou empresa fazer uma alteração no CNPJ, tirar inscrição municipal e etc..., basicamente teria que usar esse CNAE, https://cosmos.bluesoft.com.br/tabelas/cnae/5320202-servicos-de-entrega-rapida Mas vamos lá, ao que interessa no cupom fiscal ou nota fiscal, você coloca a parte dos serviços como DESPESAS ACESSORIAS no caso do cupom fiscal e só Nota fiscal, você pode colocar na despesa acessória ou lançar em fretes, como o cupom fiscal não contem fretes, a despesa adicional, sera somada ao valor do produto, porem a empresa vai pagar ICMS sobre o valor da taxa de entrega, por isso as secretarias estaduais não fazem questão que se adicione no cupom fiscal o valor da cobrança porque ela vai recolher mais impostos, então em cima desta afirmação se a empresa tiver um alto fluxo de entregas, ela pode a partir desta analise, fazer o que foi falado acima de adicionar mais um CNAE e fazer inscrição municipal, já que o ISS fica na faixa de 5% e não os 18% do ICMS. Uso assim na variavel = voutro cComandoNfce +='[Produto'+ strzero(nProduto,3,0)+']'+CRLF cComandoNfce +='CFOP=' +cprod_cfop + CRLF cComandoNfce +='Item=' +cprod_item + CRLF cComandoNfce +='Codigo=' +cprod_codi + CRLF cComandoNfce +='Descricao=' +cprod_desc + CRLF cComandoNfce +='NCM=' +cprod_cncm + CRLF cComandoNfce +='CEST=' +vcodcest + CRLF cComandoNfce +='EAN=' +cprod_cean + CRLF cComandoNfce +='cEANTrib =' +cprod_cean + CRLF cComandoNfce +='Unidade=' +cprod_unid + CRLF cComandoNfce +='Quantidade=' +cprod_qtdn + CRLF cComandoNfce +='ValorUnitario=' +cprod_vlru + CRLF cComandoNfce +='ValorTotal=' +cprod_vlrt + CRLF cComandoNfce +='ValorDesconto=' +cprod_vlrd + CRLF cComandoNfce +='IndTot=' +cprod_itot + CRLF cComandoNfce +='vTotTrib=' +cprod_ttri + CRLF if vservacr == "S" .or. ive->acrescv > 0 cComandoNfce +='vOutro=' +cprod_desp + CRLF endif Tenho vservacr, onde vejo se a empresa não emiti SERVIÇOS para enviar o acréscimo no produto.

Mas se no meio do laço faltar energia e o arquivo estava criado, qual procedimento na volta ?

Uso assim, a uns 12 anos, e sim há um controle para registros que estão marcados como em USO, então um usuario de nivel superior no sistema, pode desmarcar, mas o usuario comum, não e de fato, quando a rede cai ou algo incomum acontece, esta passivel de acontecer isso mesmo, mas na sua solução acima tambem não aconteceria ?

Bom Dia. Qual a possibilidade de fazer o MENU retornar a ultima posição, após sair de uma chamada de uma function(), alguns clientes tem pedido isso, insistentemente principalmente os que usam outros sistemas que tem o recurso. Como uso atualmente. Como Gostaria de programar Algum dos nobres colegas ja tem solução ? Ou tem alguma indicação de solução. Grato.

https://www.iq.com.br/veiculos/consulta-placa/ Alguns vendem a solução através de API para consumo.

Crie um campo no seu banco para controle, quando abrir para edição sinaliza que esta sendo editado e quando finalizar a edição desmarca, no sql voce não vai mais ter o poder de travar o registro, tem que criar um controle para isso.

Boa noite. A demanda em especifico e para usar a integração do Banco do Brasil onde a empresa e correntista, e o que ela precisa e enviar no boleto ou oferecer uma tela no caixa da loja, um QRcode, que apos pago possa ser consultado diretamente no Banco, então o próprio BB tem esse ambiente através de API. Minha pergunta era se alguem ja tinha feito a integração usando o BB para fechar uma parceria para adiantar o trabalho. As API no mercado como TEF não tem a solução para rastrear pagamento, ela quem faz a transação e depois repassa ao cliente, ficando com uma parte da transação.