HERGON

Bom dia

22 horas atrás, alex2002 disse:

Bora marcar galera.

Vamos fazer um mini encontro.

 

Um abraço,

Alexandre Pereira

Apoio o mini encontro, de preferência em BH.

Galera quando veio aqui da última vez, gostou.

Herberson Gontijo

Boa tarde

Alguém tem rotina de geração da GNRE pela dll da FlexDocs que possa disponibilizar? De preferência utilizando a classe do Gilmer.

Herberson Gontijo

Boa tarde

Tente fazer assim:

cNome:=GetPvProfString( "LOCAL", "Computador", " ", "arquivo.ini")

Herberson Gontijo

Olá

Implementamos no nosso PDV utilizando SHIPAY.

Nessa integração vc consegue disponibilizar para vários bancos e carteiras digitais sem ter que fazer um a um, compensa dar uma olhada.

Att.

Herberson Gontijo

Boa tarde

Att.

Herberson Gontijo

Bom dia

Eu faço assim, talvez ajude:

Function fAcertarDtHr(lMostraOk)
   Local oWeb, cWeb, cProcura, cExtrai, cHora, cData, lAjusta:=.f.
    Default lMostraOk:=.t.
   If !VerificaNet()
        If lMostraOk
         fMsgStop("Computador não está conectado na internet.", "Sem Acesso à Internet")
      Endif
      Return .f.
   Endif
   MsgAguarde("Verificando data/hora pela internet.", "Aguarde...")
   SysRefresh()
   CursorWait()
   oWeb    := WebConnect():New()
   cWeb    := oWeb:Open( "http://www.horacerta.com.br/index.php?city=sao_paulo" )
   cProcura:= '<input name="mostrador" type="text" size="25" value="'
   cExtrai := Subs(cWeb, At(cProcura,cWeb)+53,24)
   cData   := Alltrim(Left(alltrim(cExtrai),10))
   cHora   := Alltrim(StrZero(If(Right(cExtrai,2)=="PM" .and. Val(subs(cExtrai,14,2))<=11, 12, 0)+Val(subs(cExtrai,14,2)),2)+":"+subs(cExtrai,17,5))
   If Val(GetPvProfString("Diversos", "Ajuste da Hora", "", CurDrive()+":\"+CurDir()+"\"+cNomeTerm+".ini"))==0
      // Não alterar a hora
   Elseif Val(GetPvProfString("Diversos", "Ajuste da Hora", "", CurDrive()+":\"+CurDir()+"\"+cNomeTerm+".ini"))==1
      cHora := TsTring(Secs(cHora)-3600)
   Else
      cHora := TsTring(Secs(cHora)+3600)
   Endif

    MsgFechaAguarde()
   If Ctod(cData)<>Date() .and. Val(cData)<>0 .and. Subs(cHora,1,5)<>Subs(Time(),1,5) .and. Val(cHora)<>0
      If MsgYesNo("Data e hora da Internet:"+CRLF+;
                  cData+"  -  "+cHora+CRLF+CRLF+;
                  "Data e hora do computador:"+CRLF+;
                  Dtoc(Date())+"  -  "+Time()+CRLF+CRLF+;
                  "Deseja ajustar a data e hora?", "Data e hora do computador parecem desatualizadas.")
         lAjusta:=.t.
      Endif
   Elseif Ctod(cData)==Date() .and. Val(cData)<>0 .and. Subs(cHora,1,5)<>Subs(Time(),1,5) .and. Val(cHora)<>0
      If MsgYesNo("Hora da Internet:"+CRLF+;
                  cHora+CRLF+CRLF+;
                  "Hora do computador:"+CRLF+;
                  Time()+CRLF+CRLF+;
                  "Deseja ajustar a hora?", "A hora do computador está desatualizada")
         lAjusta:=.t.
      Endif
   Elseif Ctod(cData)<>Date() .and. Val(cData)<>0 .and. Subs(cHora,1,5)==Subs(Time(),1,5) .and. Val(cHora)<>0
      If MsgYesNo("Data da Internet:"+CRLF+;
                  cData+CRLF+CRLF+;
                  "Data do computador:"+CRLF+;
                  Dtoc(Date())+CRLF+CRLF+;
                  "Deseja ajustar a data?", "A data do computador está desatualizada")
         lAjusta:=.t.
      Endif
   Else
        If lMostraOk
         MsgInfo("A data/hora do seu computador conferem com as informações da internet."+CRLF+CRLF+;
                 "Data: "+cData+"  -  Hora: "+cHora, "Informações da Internet")
          Endif
   Endif
   If lAjusta
      MsgRun( "Ajustando data e hora.", "Aguarde...", { || fAjustaDataHora(cData, cHora) } )
      MsgInfo("Ajuste realizado com sucesso.", "Ajuste")
   Endif
Return Nil

Static Function fAjustaDataHora(cData, cHora)
   MyRun( "date "+cData )
   MyRun( "time "+cHora )
   If Ctod(cData) <> date()
      MyRun("timedate.cpl") //abre tela data e hora windows
   Endif
Return .t.
 

Tem algumas funções próprias, mas comente e teste.

Herberson Gontijo

Olá Rossine

Então, eu utilizo a classe do Gilmer com a dll da FlexDocs apenas para emissão da NF-e (para NFC-e, NÃO utilizo), fiz testes hoje em homologação para NF-e e tudo funcionou normal. Se quiser posso colocar um xml de exemplo com as novas tag's aqui.

Abraço

Herberson Gontijo

Bom dia pessoal

Além de atualizar a dll da flexdocs para a versão "NFe_Util 2G v4.0.8b" tem que fazer as mudanças conforme imagem em anexo.

Att.

Herberson Gontijo

Rochinha

Gostei muito da dica, testei via comando e funcionou bem, vou implementar no meu sistema. Obrigado.

Herberson Gontijo

Bom dia

Obrigado pela resposta Jmsilva, será de grande ajuda. Infelizmente não tenho a LIB do ACBr para testar. Vou tentar conseguir, mas o fonte que disponibilizou facilitará muito o meu trabalho, o que agradeço mais uma vez.

Herberson Gontijo

Bom dia

Alguém já implementou, em xHarbour, boletos/remessa com ACBr utilizando a DLL?

Hoje utilizo o ACBr Monitor, mas gostaria de migrar para DLL, se tiver algum exemplo para me basear. Agradeço qualquer ajuda.

Herberson Gontijo

Bom dia amigo

Tudo bem?

Eu uso o ACBr para emissão e registro dos boletos. Ainda utilizando o monitor, mas já tem a dll que já tem posts aqui no fórum, talvez seja a melhor opção.

Abraços

Herberson Gontijo

Boa tarde Wellington

Salvo engano, em todos os estados a numeração da NF-e e NFC-e são independentes, começando em 1 até 999.999, devendo recomeçar a numeração a cada nova série.

Att.

Herberson Gontijo

Realmente, acho que tive que mexer na classe, só agora estou lembrando... vou colar aqui.

// Consulta NF-e destinadas
Method distNSU(cSiglaUFDestinado,cCNPJDestinatario,cUltNSURecebido,cVerAplic,cUltNsu,cMaxNsu,nQtdeDocto,uRetorno,lRetArray) Class TVoNFeUtil2G
    Local nStat:=0
    Local cMsgResultado:="",nIndContinuacao:=1
    local cMsgDados:="", cMsgRetWS:="",cRetTxt:="",aRegistro:={},oTxt
   Default cSiglaUFDestinado:=::SiglaUF,cUltNSURecebido:="0",cUltNsu:="0",lRetArray:=.t.
    Default cVerAplic:="",cMaxNsu:="",nQtdeDocto:=1
   ::Limpa()
   If ::CertificadoSelecionado()
       If ::ConsultaStatus()
            Try
/*
                cRetTxt+=::oNFEUtil:distNSU("AN",::Ambiente, ::cCertificado,;
                                  "4.00", @cMsgDados, @cMsgRetWS,@nStat,;
                                  @cMsgResultado,cCNPJDestinatario,cSiglaUFDestinado,;
                                  cUltNSURecebido,@cVerAplic,@::Recebimento,@cUltNsu,;
                                  @cMaxNsu,@nQtdeDocto,;
                                  ::proxy,::usuario,::senha,::Licenca)
*/
                cRetTxt+=::oNFEUtil:distNSU("AN",::Ambiente, ::cCertificado,;
                                  "4.00", @cMsgDados, cMsgRetWS,@nStat,;
                                  cMsgResultado,cCNPJDestinatario,cSiglaUFDestinado,;
                                  cUltNSURecebido,cVerAplic,::Recebimento,@cUltNsu,;
                                  @cMaxNsu,@nQtdeDocto,;
                                  ::proxy,::usuario,::senha,::Licenca)

            Memowrit("manifest.txt", cRetTxt, .f.)
          Catch oError
              fMsgStop("Erro! oNFeUtil:DistNSU."+CRLF+;
                      "Error: " + cValToChar( oError:GenCode) + CRLF + ;
                      "SubC: " + cValToChar( oError:SubCode ) + CRLF + ;
                      "OSCode: " + cValToChar( oError:OsCode ) + CRLF + ;
                      "SubSystem: " + cValToChar( oError:SubSystem ) + CRLF + ;
                      "Operação: " + cValToChar( oError:Operation ) + CRLF + ;
                      "Mensagem: " + oError:Description, CAPTION_MSG)
                Return(.f.)
            End Try
            ::cStsNFe     := Alltrim(Str(nStat))
            ::cStsNFeMsg  := cMsgResultado
            ::Protocolo   := cUltNsu
       Else
              //Tratar erro para servidor fora
       Endif
       If !Empty(cRetTxt)
            ::lAutorizada:=.t.
            If lRetArray
                While .t.
                   nPos:=At(CHR(13), cRetTxt)
                   If nPos>0
                        AAdd(uRetorno, {Subs(cRetTxt,1,15), Subs(cRetTxt,17,35), Subs(cRetTxt,53,nPos-53)})
                        cRetTxt:=Subs(cRetTxt,nPos+1)
                    Else
                       Exit
                    Endif
                Enddo 
             Else
                  uRetorno:=cRetTxt
           Endif
        Endif
   Endif
Return( ::lAutorizada )
 

Att.

Herberson Gontijo

Acabei de testar aqui e funcionou perfeitamente

Att

Herberson Gontijo

Empresoft

Você está fazendo o teste com o certificado do cliente e está configurado para PRODUCAO? Porque se tiver para HOMOLOGAÇÃO, não mostrará as NF-e's que foram emitidas contra o CNPJ dele em produção não.

Tente passar o cUltNsuRec :="0" para processar desde o começo.

Att.

Herberson Gontijo

Faça assim:

   oNfeUtil:distNSU(cUfManif,cCnpjManif,cUltNsuRec,"",@cUltNsu,@cMaxNsu,1,@aRegistros)
   If oNfeUtil:cStsNFe=="7001" .or. oNfeUtil:cStsNFe=="7003"
      fMsgStop("Licença da dll da FlexDocs não confere, contacte o suporte.", "Atenção")
      cChaveDll:=" "
      Return .f.
   Endif
   If Len(aRegistros)==0
      MsgAlert("Não existe nenhum documento pendente.","Consulta")
   Else

     xbrowse(aRegistros)

   Endif

Att.

Herberson Gontijo

Olá

Já tem um bom tempo que fiz, mas pelo que me lembro há problemas ao se passar as variáveis por referencia... Estou utilizando assim e dá certo:

 oNfeUtil:distNSU(cUfManif,cCnpjManif,cUltNsuRec,"",@cUltNsu,@cMaxNsu,1,@aRegistros)

Passe por referência apenas as variáveis estritamente necessárias e retire "@" das demais, conforme acima.

Att.

Herberson Gontijo
 

Bom dia

Vitor, fiquei na sexta-feira o dia inteiro tentando resolver esse problema, inclusive abri ticket na Flexdocs... no final do dia com a resposta da Flexdocs e a interpretaão/ajuda do Gilmer conseguimos resolver (ele, rsrsrs).

Teve que mudar a classe... se o trecho...

        ElseIf CSOSN=="500"
            AAdd( axArray, {"ICMSSN500" , {}, 1  } ); nPos := len(axArray)
            AAdd( axArray[nPos][2], {"orig"                 , TVoNFeItem():New("N", 1, 1, 1  ,,,oItem:orig )  }  )
            AAdd( axArray[nPos][2], {"CSOSN"             , TVoNFeItem():New("N", 1, 1, 3  ,,,oItem:CSOSN )  }  )
            AAdd( axArray[nPos][2], {"vBCSTRet"         , TVoNFeItem():New("N", 0, 1, 15,2 ,,oItem:vBCSTRet   )  }  )
            AAdd( axArray[nPos][2], {"pST"            , TVoNFeItem():New("N", 0, 1, 15,2 ,,oItem:pST         )  }  )
            AAdd( axArray[nPos][2], {"vICMSSTRet"      , TVoNFeItem():New("N", 0, 1, 15,2,,oItem:vICMSSTRet  )  }  )
         AAdd( axArray[nPos][2], {"vBCFCPSTRet"    , TVoNFeItem():New("N", 0, 1, 15,2 ,,oItem:vBCFCPSTRET )  }  )
         AAdd( axArray[nPos][2], {"pFCPSTRet"      , TVoNFeItem():New("N", 0, 1, 6 ,2 ,,oItem:pFCPSTRET   )  }  )
         AAdd( axArray[nPos][2], {"vFCPSTRet"      , TVoNFeItem():New("N", 0, 1, 15,2 ,,oItem:vFCPSTRET   )  }  )
 

Att.

Herberson Gontijo

Bom dia

Mas como você testa se foi clicado no cabeçalho marcando ou desmarcando a opção ?

Herberson Gontijo

Bom dia

Tentei rodar o exemplo mas deu o erro abaixo:

Error: Unresolved external '_hb_partdt' referenced from H:\FWH1608\LIB\FIVEHX.LIB|VALTOSTR

Esse exemplo é para xHarbour ou Harbour? Se for para Harbour como passo para funcionar com xHarbour?

Herberson Gontijo

Bom dia

Utilize a Manifestação do Destinatário que vc nunca mais precisará de baixar xml pelo navegador.

Abraço

Herberson Gontijo

Bom dia Kapiaba

Tive o mesmo problema, olhei nos fontes e identifiquei que tem que criar uma subpasta com o nome DADOS que ai o sistema cria as bases de dados necessárias.

Abraço

Herberson Gontijo

Boa tarde

Fiz o depósito agora na hora do almoço.

Abraço

Herberson Gontijo - Ponteware Informática.

Bom dia

Sim está marcado, mas mesmo assim não processa.

Herberson Gontijo