pauloaraujo

citação:Posso estar errado mas acho que não tem nada a ver. acho que o DBF do Dbase, Fox Clipper e xHarbour tem o mesmo padrão. Luiz Arruda-Corumba(MS) ico.corumba@gmail.com FiveWin Desde 2004id=blue> [x]Harbour xDev WS Não Abandone seu tópico Retorne avisando se a dica funcionou id=red> id=quote>id=quote>Luiz, tudo bem??? Faça um teste. - criar um BD usando o Dbase III - criar um prg usando o xHarbour e no início colocar: REQUEST DBFCDX RDDSETDEFAULT("DBFCDX") Nesse prg, dê um APPEND BLANK e também algum REPLACE Depois disso tente abrir novamente o mesmo DBF pelo Dbase III. Nem a pau, Juvenal. O RDD DBFCDX é do Fox e com ele você abre o DBF. Um abraço

citação:Olá Pessoal. Estou tentando imprimir nfe no I.explorer 7.0 e não estou conseguindo. Será que é por causa da versão? Sei que tem um forma de configurar o IE como um versão anterior, mas não lembro como faz. Alguém dá uma luz? Grato João id=quote>id=quote>João, tudo bem?? É o Danfe que você está tentando imprimir??

E ainda assim fazem um monte de m....

citação:Valeu Paulo. Funcionou direitinho. Gilmer isso já não deveria constar na classe para que inclusive outros amigos que a estão usando não tivessem essa alteração incorporada ? id=quote>id=quote>Sei lá, mas acho que não tem mais volta com relação à NFe. Acharia justissimo o Gilmer cobrar uma manutenção mensal para quem adquiriu a classe dele, comprometendo-se a atualizá-la de acordo com a legislação. Eu me sentiria muito mais seguro e seria o 1º a aderir. A versão 4.0 está aí ..... Abraços

citação:Opa Paulo Legal Preciso ver como criar isso na classe do gilmer pois olhei a classe e ela não cria essas chaves. Acredito que é exatamente isso que o contador quer. Editado por - jcleoner on 26/03/2010 12:11:38 Editado por - jcleoner on 26/03/2010 12:14:58 id=quote>id=quote>Bom, o Gilmer vai pegar no meu pé, mas não resisto de dar um pitaco (hehe) Modificar a classe: METHOD StruIPI() METHOD StruIPITrib() METHOD StruIPINT() // criar aqui // ------------ METHOD StruIPI() CLASS TVoNFe local axArray axArray := {} aadd(axArray, {"cIEnq" , TVoNFeItem():New("C", 0, 05,,,,oItem:cIEnq) } ) aadd(axArray, {"CNPJProd", TVoNFeItem():New("N", 0, 14,,,,oItem:CNPJProd) } ) aadd(axArray, {"cSelo" , TVoNFeItem():New("C", 0, 1,,60,,oItem:cSelo) } ) aadd(axArray, {"qSelo" , TVoNFeItem():New("N", 0, 1,12,,oItem:qSelo) } ) aadd(axArray, {"cEnq" , TVoNFeItem():New("N", 1, 3,,,,oItem:cEnq) } ) if AT(oItem:cST_IPI,"00;49;50;99;")>0 aadd(axArray, {"IPITrib" , ::StruIpiTrib(oItem) } ) else aadd(axArray, {"IPINT" , ::StruIpiNT(oItem) } ) endif return( axArray ) METHOD StruIPINT() CLASS TVoNfe Local axArray axArray := {} aadd(axArray, {"CST" , TVoNFeItem():New("C", 0, 02,,,, oItem:cST_IPI) } ) Return( axArray ) id=code>id=code> Editado por - pauloaraujo on 26/03/2010 13:37:00

citação:Pessoal Quando um item da NFe tem IPI, informo CST_IPI = 50, base, aliquota, valor e enquadramento. Quando não tem, não informo nada, nenhuma chave referente ao IPI. Ocorre que um contador afirma que precisa constar ( para um cliente ) no CST_IPI o código 55 ( Saída com suspensão ). O problema está aí, se informar o código 55, a nfe não vai nem a pau, já tentei preencher outros campos colocando 0 na base, aliquota e valor, mas não adianta, ela é recusada. Alguem sabe algo a respeito, ou o contador está enganado e não tem que por nada mesmo ? id=quote>id=quote>Zé, beleza, Como tenho uma câmera escondida aí, ví que você está tentando passar esses dados através do IPITrib, quando deveria ser pelo IPINT 999 55 id=code>id=code>Fui

citação:Olá Paulo Obrigado pela resposta. Mais algumas questões: Meus clientes são incapazes de abrir um arquivo zip, então instalar certificados vai ser algo penoso. Vc disse: "Frame Work" (2.0 ou superior). Esse frame work é fornecido pela Receita ? " programa da NFe deve ser instalado no drive "C" da máquina do faturamento. Ou seja, se o executável do teu sistema estiver no servidor, você terá que ter programas separados." Quer dizer, se o faturamento usar mais de uma maquina tem que ter o exec da nfe em cada máquina? []´s Rogerio id=quote>id=quote>Rogério, Só complementando o João, o Frame Work é da Microsoft. Te aconselho não se meter na instalação do Certificado Digital. Isso cabe ao Contador de cada empresa. Tenha em mente que o Certificado é quase como se fosse um Cartão de Banco. Nós não temos nada a ver com isso. Se houver mais de uma máquina de faturamento, tem que instalar em TODAS. Outros procedimentos, como registro da DLL e instalação das fontes, o Gilmer vai te orientar. É muito fácil de se fazer por telefone com o cliente. Um abraço Editado por - pauloaraujo on 25/02/2010 16:39:15

Rogério, tudo bem?? 1º) "A primeira questão é sobre certificado que o cliente tem que adquirir. Tem o A1 e A3. Qual o mais recomendado, que dá menos problema de implantção?" R: O certificado A3 vai exigir que o usuário digite a senha (PIN) a cada entrada. O custo dele é um pouco maior, mas tem validade por 3 anos, enquanto que a do A1 é de apenas um ano. A escolha por um ou outro vai depender do perfil do teu cliente. Se ele emite muitas notas, é altamente recomendável o A1. Caso contrário, tanto faz. 2º) "Implantação no cliente: vocês conseguiram fazer tudo remotamente ou exigiu visitas no local ?" R: A instalação do Certificado cabe ao teu cliente. Portanto, a instalação do teu programa pode ser feita remotamente. Só implantei pessoalmente o 1º cliente. 3º) "Além do certificado e do nosso aplicativo o cliente tem que providenciar alguma outra burocracia, tipo registro, cadastro em algum serviço da receita? O contador é quem faz isso?" R: Bom, ele tem que instalar o "Frame Work" (2.0 ou superior). O contador dele tem que habilitar o teu cliente na área de teste da Sefaz, ou direto na área de produção. 4º) Existe alguma outra dica que vc acha importante? R: Lembrar que o programa da NFe deve ser instalado no drive "C" da máquina do faturamento. Ou seja, se o executável do teu sistema estiver no servidor, você terá que ter programas separados. Outra coisa, você terá que comprar a licença da FlexDocs para cada cliente que implantar. Um abraço e boa sorte Editado por - pauloaraujo on 25/02/2010 12:54:27

Anderson, tudo bem?? Basicamente, após a geração do XML, a rotina fica assim: oNFEUtil:=tVoNFeUtil():New(CADPARAM->UF,val(cTpAmb),cCertificado,wProxy,wUsuario,wSenha,cLicenca,.t.) //-. Consulta Status do SITE DA SEFAZ NX := oNFEUtil:ConsultaStatus() If NX = 0 //-> nada a fazer ELSE TONE( 900, 2 ) DO CASE CASE NX = 105 cMensa := ( "em processamento na secretaria da fazenda" ) CASE NX = 107 cMensa := ( "Serviço Paralisado Momentaneamente (curto prazo) " ) CASE NX = 108 cMensa := ( "Serviço Paralisado Momentaneamente (curto prazo) " ) CASE NX = 109 cMensa := ( "Serviço Paralisado sem Previsão de Retorno " ) CASE NX = 281 cMensa := ( "Rejeição: Certificado Transmissor Data Validade" ) OTHERWISE cMensa := OemToAnsi( "Problemas na TransmissÆo/ConexÆo. " + ; "Internet Pode Estar com Problemas." ) ENDCASE oMensa:Refresh() oRetorno:Refresh() oRecibo:Refresh() oDetalhes:Refresh() //-> Abre Notas Fiscais SELECT CADNFE XFOCUS( oBmp6 ) //-> permanecer somente transmissao habilitado lGerar := .T. lTransmite := .F. lConsulta := .F. lCancela := .F. lConsStatus := .F. RETURN NIL ENDIF SELECT CADNFE cChaveAcesso:=alltrim(CADNFE->CHAVEACES) cMensa:="";cRetorno:="";xRecibo:="";cDetalhes:="" oMensa:Refresh() oRetorno:Refresh() oRecibo:Refresh() oDetalhes:Refresh() carq:="REMESSA\nfe"+cChaveAcesso+"-nfe.xml" cXmlAssinado:="" cRecibo:="" IF oNFeUtil:ValidaXml(cArq, 1) != 0 oNfeUtil:End() lProblema_na_transmissao:= .T. SELECT CADNFE RLOCK() REPL STATUS WITH " " // voltar para pendente de geracao - 30/08/2009 COMMIT UNLOCK // habilitar somente gerar // desabilitar botao transmitir / consulta //-> permanecer somente transmissao habilitado lGerar := .F. lTransmite := .T. lConsulta := .F. lCancela := .F. lConsStatus := .F. RETURN( .F. ) ENDIF SELECT CADNFE RLOCK() REPL RETNFE WITH "IT" COMMIT //-> Aqui, o RETORNO tem que ser 103 - LOTE RECEBIDO COM SUCESSO - MANUAL //-> NX ‚ numerico nX:=oNFEUtil:EnviaNFe(cArq,@cxmlassinado,@crecibo) IF oNfeUtil:lAutorizada oNfe := TVoNFe():New() oNfe:PegaChaveAcesso(cXmlAssinado) oNFe:SaveXml(,cXmlAssinado, 2 ) CURSORWAIT() RETURN( .T. ) id=code>id=code>

Maurício, tudo bem?? Cadê o nome do índice ?? INDE ON STR(CODIGO,5) TAG CLICOD TO ??????? id=code>id=code>Um abraço

Narlen, tudo bem?? Você está errando no registro 54 aquí: Base Calculo Sub.Tributária.....: 100,00 Não é a base de substituição tributária que está sendo pedido, e sim a base do ICMS. Ou seja, o valor é 0 (zero), cuja soma tem que bater com o valor da Base de Cálculo do Icms do Registro 50 Um abraço

citação:Bom dia, alguem já desenvolveu NFe com solução do Gilmer? Como desenvolver utilizando TXTs ? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLib id=brown>O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. id=quote>id=quote>Anderson, tudo bem?? O que o Luiz falou é verdade, existe um layout de TXT que pode ser importado pelo programa da Sefaz. Estamos exatamente neste momento criando um módulo utilizando esse TXT, para fazer a mesma coisa que o da Sefaz: - criar o XML - transmitir - consultar o lote - imprimir o Danfe Se for a mesma coisa que você quer, basta obter esse layout no site da Sefaz. Ele vem na mesma ordem do manual de integração e é muito fácil de se utilizar, desde que você domine manipulação de TXT. Na solução Gilmer, basta, em vez de pegar os dados dos bancos de dados, pegar diretamente do TXT. Resolvemos fazer isso, porque fomos consultados por um grupo de 4 empresas que não querem trocar o sistema deles. Porém, o programador não teve capacidade de criar o XML (hehe). Um abraço

Evaldo, tudo bem?? Em xHarbour você não precisa criar índices em ordem crescente ou decrescente. OrdDescend( ,, .T. ) // indice em ordem crescente OrdDescend( ,, .F. ) // indice em ordem decrescente Agora o comando que você quer é DESCENDING Um abraço

citação:Pessoal ve se alguém pode me ajudar, preciso fazer uma nota de entrada o CFOP de entrada é 1.102 , coloco a opcao 0 no tpNF , envio e pego o retorno sem erro, na impressão do DANFE sai certo o CFOP e o 1 de entrada no inicio, mais a descrição da natureza vem "VENDA MERCA ADQ/REC DE TERC EM OPER" o certo seria "COMPRA PARA COMERCIALIZAÇÃO", se alguém tiver alguma diga. Obs: Usando solução Gilmer Obrigado Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.09,XHARHOUR 1.2 id=quote>id=quote>Luiz, tudo bem?? Não usamos a solução Gilmer para geração do XML, mas somente a partir da transmissão. Agora, tenho certeza que isso é um parâmetro a ser passado por você NA HORA DA GERAÇÃO DO XML, pois na classe nao tem a descrição de cada CFOP. Acredito que você tenha um banco de dados contendo todos os códigos fiscais e as respectivas descrições. Ou seja, você precisa dar um SEEK no 1102 e passar a descrição. Um abraço

citação:Boa tarde a todos, o Pacote Fornecido pelo GILMER apresenta o seguinte erro: Erro: XML mal formado - Erro durante a análise de EntityName. Linha 41, posição 16. Em uma empresa que o Certificado foi fornecido por CertiSign não apresenta esse problema, mas com o fornecido pelos Correios / Serpro apresenta. Agradeço a todos por qualquer colaboração. André Meneghetti SP-SP Informax FWH 2.8 + xHarbour 1.20.01 + BCC 5.5 email: andre.informax@terra.com.br id=quote>id=quote>André, Não acho que seja problema de Certificado Abra o arquivo XML com algum editor e retorne o que contém na Linha 41, posição 16. Verifique se você não está ultrapassando o tamanho de algum campo definido no manual de integração. Erros mais comuns: - descrição do produto com mais de 120 caracteres - unidade comercial e tributável com mais de 6 dígitos - ST "00" sem base de cálculo e icms