Jorge Andrade

Valeu amigo, testei e deu certo. E ao nosso amigo (João) que torce pro timico mixuruca, obrigado pelo questionamento em pedir pra vc postar a solução. []s

Ainda existem muitas dúvidas e discussões sobre a validação do GTIN na NFe. Diante dos riscos da implantação dessas validações, a Sefaz publicou uma Nota Técnica que suspende os prazos previstos anteriormente. No dia 07 de Dezembro de 2018 foi publicada uma nova versão da Nota Técnica 2017.001 suspendendo as validações do GTIN que estavam previstas para janeiro de 2019. Leia mais Créditos: OOBJ

Amigo, não vou colocar pimenta no molho, mas infelizmente discordo de vc, embora devo admitir que evoluir é necessário e primordial, mas, primeiro, o DOS não morreu, e pelo jeito, salvo engano, não vai morrer tão cedo e o windows não o matou, até agora, nas últimas versões, os sistemas nessa base estão rodando normalmente, até no linux vc consegue rodar com DBF, então condená-lo a morte sendo que ele ainda está respirando é cruel. A evolução é necessária e faz com que a competição fique acirrada, pois os caminhos estão se estreitando e a cada dia surge uma solução de vanguarda. Quando já se rodava o DB2 em grande porte, usava-se muito DBF, BASES EM COBOL, BASES EM DATAFLEX, BTRIEVE com o bendito FIREBIRD e outros, e iam surgindo outras bases na micro informática pra tentar derrubar o coitado do Highlander do DBF ahauauau. O SQL é uma solução longeva e hoje se discute os meios e as plataformas, que são cada vez mais parrudas e confiáveis. Vc tem toda razão quando incentiva outro colega a utilizar instruções sql, pois sabe-se que o tempo ganho, além da sequência de instruções e comandos posteriores são menores. []s,

Não Oscar, na verdade, o que ele quis dizer "Correto" é que, na concepção dele, o melhor é usar sentenças/instrução SQL puro. Claro que ela é confiável, senão, milhares de pessoas já tinha parado de usá-la. As vezes não dá pra vc usar SQL puro, principalmente, quando o sistema não está bem modelado, se a base não estiver bem modelada, é perder tempo. Normalmente quem sai do DBF para SQL, se não quiser perder tempo, tem que usar os comandos xBase, até que pode modelar as bases para utilizar SQL puro de forma mais tranquila, pois o ganho é muito grande, daí, pode até abri mão da SQLRDD. []s,

Pessoal As Dll's Acbr começaram a ser disponibilizadas para download, já existem além das classes de alto nível, as Dll's do SAT Cdecl ou StdCall, então, logo quem usa o monitor, poderá abrir mão da sua utilização, com isso temos uma grande independência e transparência nos processos, mas como todos sabem, enquanto não estabiliza, melhor ir testando na boa. []s,

Em relação ao erro do Crisvam, se ele postar o xml de repente podemos ajudar ao analisar o mesmo. Como não uso Flexdoc então nem dou palpite sobre com informar a tag de referencia de nfe na rotina dele. Esta é a forma de gerar a informação no grupo IDE <NFref> <refNFe>chave</refNFe> . . . <refNFe>chave</refNFe> </NFref> []S,

Valdir, boa noite Quando se tratar de devolução com destaques na entrada de tributos tais como icms, pis, cofins, estes devem ser informados em campos próprios e com CSOSN = 900, as informações relativas a IPI nos dados adicionais. O valor de IPI deve ser somado ao valor da nota e informado em voutro (Outras despesas acessórias). []s,

Aê galera, blz Estou indo sábado no evento, alguém daqui vai? Tem um colega do fórum ACBR que está oferecendo carona (São Paulo) a ratear as despesas, tem mais 2 lugares eu acho, quem topar entra lá https://www.projetoacbr.com.br/forum/topic/46383-carona-para-dia-do-acbr/. []s,

Amigo, bom dia. Se a origem é MG, pode informar até a dentadura da vovó, pq aí a coisa é braba e dependendo como for, pode ser que tenha até ST no frete, dependendo do tipo do serviço de frete. []s,

Aqui é assim. ahauhaua como disse o Lavoisier "Nada se cria tudo, se transforma", vamos no conceito de nada se cria td se adapta ou se copia ahauhauaua. E vamo que vamo. Agora, fale pro nosso amigo Kapi que tem um prato de VIRADO À PAULISTA, com uma caipirinha e uma cerveja esperando ele, pra vc ver essa preguiça ir embora correndo do corpo dele. []s,

Espero que agora este do gosto e do crivo do Eduardo. aahauhauauauauuaa, morrendo de rir aqui. FUNCTION BUSCA_CEP(Ccep) LOCAL oHttp, cXML LOCAL cRes, cUf, cCidade, cTipo, cEnde, cBairro oHttp:= TIpClientHttp():new( "http://cep.republicavirtual.com.br/web_cep.php?cep="+cCep+"&formato=xml" ) IF ! oHttp:open() ? "Erro na conexÆo: "+ oHttp:lastErrorMessage() RETURN .F. ENDIF cXML := oHttp:readAll() oHttp:close() IF Empty(cXML) ?"Ocorreu um erro inesperado. Tente outro CEP..." RETURN .F. ENDIF IF (cRes := Substr( cXML, At("<resultado>",cXML)+11, At("</resultado>",cXML)-At("<resultado>",cXML)-11 ) ) $ "1" cUf := Substr( cXML, At("<uf>",cXML)+4, At("</uf>",cXML)-At("<uf>",cXML)-4 ) cCidade := Substr( cXML, At("<cidade>",cXML)+8, At("</cidade>",cXML)-At("<cidade>",cXML)-8 ) cTipo := Substr( cXML, At("<tipo_logradouro>",cXML)+17, At("</tipo_logradouro>",cXML)-At("<tipo_logradouro>",cXML)-17 ) cEnde := Substr( cXML, At("<logradouro>",cXML)+12, At("</logradouro>",cXML)-At("<logradouro>",cXML)-12 ) cBairro := Substr( cXML, At("<bairro>",cXML)+8, At("</bairro>",cXML)-At("<bairro>",cXML)-8 ) wendereco := RTRIM( LTRIM( UPPER(cTipo) ) + " " +RTRIM( LTRIM(UPPER(cEnde) ) ) wbairro := RTRIM( LTRIM( UPPER(cBairro) ) ) wcidade := RTRIM( LTRIM( UPPER(cCidade) ) ) westado := RTRIM( LTRIM( UPPER(cUf) ) ) ENDIF RETURN .T. // -----------------[ EOF ]-----------------

n João, o sAcento é aquele que todos usam pra excluir os acentos que vc mesmo postou aqui.

A resposta do Eduardo é mais completa, pq traz o código IBGE, mas como o amigo Marca disse acima, peca no conteúdo por falta de alguns cep's, porém, como eu nunca fiz uso, não posso opinar, embora esta também faça parte na lista de pesquisa do ACBR e mais outras 10. []s,

opa!!! Tem uma rotina que peguei acho que aqui no fórum, este código está meio marreta, mas me atende em tempo de cadastro do cliente num valid de um get. FUNCTION BUSCA_CEP(wcep, oDlgDialog) LOCAL GetList := {} LOCAL oHttp, cXML, cCep := wcep, ODLG_c LOCAL cRes, cUf, cCidade, cTipo, cEnde, cBairro oHttp:= TIpClientHttp():new( "http://cep.republicavirtual.com.br/web_cep.php?cep="+cCep+"&formato=xml" ) IF ! oHttp:open() ERRMSG1( "Erro na conexÆo: "+ oHttp:lastErrorMessage() ) RETURN .F. ENDIF cXML := oHttp:readAll() oHttp:close() IF Empty(cXML) ERRMSG1("Ocorreu um erro inesperado. Tente outro CEP...") RETURN .F. ENDIF IF (cRes := Substr( cXML, At("<resultado>",cXML)+11, At("</resultado>",cXML)-At("<resultado>",cXML)-11 ) ) $ "1" cUf := sAcento(Substr( cXML, At("<uf>",cXML)+4, At("</uf>",cXML)-At("<uf>",cXML)-4 ) ) cCidade := sAcento(Substr( cXML, At("<cidade>",cXML)+8, At("</cidade>",cXML)-At("<cidade>",cXML)-8 ) ) cTipo := sAcento(Substr( cXML, At("<tipo_logradouro>",cXML)+17, At("</tipo_logradouro>",cXML)-At("<tipo_logradouro>",cXML)-17 ) ) cEnde := sAcento(Substr( cXML, At("<logradouro>",cXML)+12, At("</logradouro>",cXML)-At("<logradouro>",cXML)-12 ) ) cBairro := sAcento(Substr( cXML, At("<bairro>",cXML)+8, At("</bairro>",cXML)-At("<bairro>",cXML)-8 ) ) wendereco := LimpaStr( UPPER(cTipo) ) + " " + LimpaStr(UPPER(cEnde) ) wbairro := LimpaStr( UPPER(cBairro) ) wcidade := LimpaStr( UPPER(cCidade) ) westado := LimpaStr( UPPER(cUf) ) /* //Esta parte eu implementei com meu cadastro IBGE e há variaveis não utilizadas que deixei pra excluir depois IF MsgYesNo( "Pesquisa código IBGE S/N?" ) if SELECT("CADIBGEM") > 0 DBSETORDER(3) DBGOTOP() SEEK westado+wcidade IF ! FOUND() DBGOTOP() SEEK UPPER(westado+wcidade) IF FOUND() wcodibge := codibge wcidade := LimpaStr(UPPER(Cidade)) westado := LimpaStr( UPPER(sigla) ) endif ELSE wcodibge := codibge wcidade := LimpaStr(UPPER(Cidade)) westado := LimpaStr( UPPER(sigla) ) ENDIF ENDIF if ! (westado $ "EX") wcodpais := "1058" endif endif */ ENDIF oDlgDialog:update() RETURN .T. // -----------------[ EOF ]-----------------

Eu utilizo esta url: http://cep.republicavirtual.com.br/web_cep.php?cep="+numero do cep+"&formato=xml, a diferença é que não tem o código ibge, o qual eu pesquiso em modo secundário, mas é bastante confiável e vc pode ter o retorno nos seguintes formatos: f (string, pode ser: xml, query_string, ou jsonp ou javascript) . []s,

Uia! O bicho pegou. Bom eu não conheço a pessoa citada e nem imagino quem seja, mas, diante das informações citadas pelos colegas, citei numa frase o que realmente são as pessoas que agem da forma conforme foi citado, então, não estou incriminando ninguém, apenas parafraseando citações acima. []s,

Entonces compadre, es una farsa. ahuaua

Desculpe a demora em manifestar-se. Valeu pelas respostas galera, vou ver qual o melhor modo. []s,

Caraco?? Ninguém??? Kd os papas e bispos do fórum ahauahuaua.

Famoso, nó em pingo d'agua. ahauhauaua

Galera, boa tarde Tenho uma rotina CONSOLE, onde abro/edito arquivos no formato .CSV pelo EXCEL numa única linha de comando RUN ("EXCEL.EXE " + cFileExcel), pensei em alterar para a forma abaixo, para não utilizar o RUN, como podem ver a quantidade de linhas aumentou substancialmente, porém, me recuso a usar mais do que 5 linhas para o procedimento, tem como em modo CONSOLE? Sei que no FW, bastaria meia linha para tal. TRY oExcel := GetActiveObject( "Excel.Application" ) CATCH TRY oExcel := CreateObject( "Excel.Application" ) CATCH ALERT("Excel não localizado","Aviso do Sistema") RETURN END END IF ! FILE(cFileExcel) ALERT("Documento não encontrado") RETURN .F. ENDIF xExcel := oExcel:Documents:Open(cFileExcel) //ABRE O EXCEL []s,

Valeu galera, vou dar uma olhada nos exemplos. []s,

Galera bom dia Na ferramenta windev, podemos criar objetos browse e table estilo listbox, onde é possivel inserir filtros/pesquisas e ordenações em colunas especificas ou todas do objeto. É possível fazer isso com o FW? Ou seja, no windev, após definir estas opções, basta clicar sobre a coluna que é reordenada ou faz o filtro/pesquisa. []s,

Hummmm! Rei do centro velho ahuahauaua

João, onde vc conseguiu esta relação e código malandro??? Supimpa. ahauhaua