Ir para conteúdo
  • Cadastre-se

systux

Membros
  • Total de ítens

    71
  • Registro em

  • Última visita

Posts postados por systux

  1. Bom Dia, André !

     

    Muito obrigado por responder !

     

    INetInit() // Uma unica vez no começo da função, depois vou testando com INETConnect()

     

    //Testo a Internet

    pSocket := INetConnect( "www.google.com.br", 80 )

    If INetErrorCode( pSocket ) <> 0

     

    // Testo o Monitor

    pSocket := INetConnectIP( cHost, nPort )
    If INetErrorCode( pSocket ) <> 0

     

    Se tudo passar no teste, ai sim eu envio o comando

    INetSend( pSocket, cComando )

     

    Não funciona assim ?

    Nunca trabelhei com Sockets de Internet

     

    Forte abraço;

  2. Boa Noite a Todos !

     

    Fiz vários testes inclusive adaptei minha rotina seguindo a rotina do André.

    Consegui eliminar as Boas Vindas do ACBr.

    Mas a questão de retornar o a resposta para o terminal errado, ainda continua..., esta me tirando o sono!

     

    Obrigado a Todos.

  3. Jorge, Boa Tarde !

     

    Obrigado por responder.

     

    Vou tentar implementar a rotina do André, um dos grandes mentores do ACBrNfeMonitor.

     

    Quando possível, teste enviando os comandos de mais terminais ao mesmo tempo, veja se retorna ao terminal correto:

    Vou deixar aqui a FUNC quei criei e estou testando, talvez consigo encontrar o erro com a ajuda de vocês.

    #DEFINE LINE Chr(13) + Chr(10) + chr(46) + Chr(13) + Chr(10) // ACBr TCP/IP
    #DEFINE CRLF Chr(13) + Chr(10)
    #DEFINE ETX  Chr(3)
    
    
    *---------------------*
    * Consulta WebService *
    *---------------------*
    Func WebService( xRet )
    
       Cabec("Consulta Disponibilidade do WebService")
       Fundo()
       Rodape()       
    
       cWeb := 'NFE.StatusServico()' + LINE
       cWeb += 'NFE.Fim'             + LINE
    
       vRet := ACBr( cWeb )
    
       If AT("ERRO", Upper( vRet ) ) > 0
          Mostra_Retorno( vRet, .f. )
       Else
          Mostra_Retorno( vRet, .t. )
       Endif
    
    Return Menu_NFe( xRet )
    
    *----------------------------------------------*
    * Enviar Comandos e Retornar Resposta Via ACBr *
    *----------------------------------------------*
    Func ACBr( cComando, cRetorno )
          
       cHost := "192.168.1.20"
       nPort := 3436
    
       If !File( "nfe.ini" )
          cRetorno := "ERRO: Arquivo <nfe.ini> Inexistente."
       Else
    
          // Initialize Sockets System And Connect to Server
          INetInit()
               
          Alerta(":Testando a Internet:",,,.T.)
          pSocket := INetConnect( "www.google.com.br", 80 )   
       
          If INetErrorCode( pSocket ) <> 0
             cRetorno := "ERRO: Falha ao Conectar-se a Internet."
    
          Else
    
             Alerta(":Aguardando Monitor: ",,,.T.)
             pSocket := INetConnectIP( cHost, nPort )
    
             If INetErrorCode( pSocket ) <> 0
                cRetorno := "ERRO: Monitor NFe Falhou, IP: " + cHost + ":" + LTRIM( Str( nPort ) )            
    
             Else
    
                Alerta(":Enviando Solicita‡„o:",,,.T.)
    
                nBytes   := INetSend( pSocket, cComando  )
                cBuffer  := Space(4096)
                cRetorno := ""
    
                Do While ( nBytes > 0 )
                   cBuffer  := Space(4096)
                   nBytes   := INetRecv( pSocket, @cBuffer )
                   cRetorno += Left( cBuffer, nBytes )
                Enddo
    
             Endif
    
          Endif
                
          INetClose( pSocket )
          INetCleanUp()
    
       Endif
       
       cRetorno := StrTran( cRetorno, chr(3), "" )
       cRetorno := ConvToOemCP( cRetorno )
          
    Return ( cRetorno )
    ** xx **
    
    *-----------------------------*
    * Mostra Retorno              *
    * lCor_ = .t. OK   (Azul)     *
    *       = .f. ERRO (Vermelho) *
    *-----------------------------*
    Proc Mostra_Retorno( cRet_, lCor_ )
    
        vCor  := SetColor()
        lCor_ := If( lCor_ == NIL, .t., lCor_ )
    
        If lCor_
           SetColor("w+/b, w+/b, , , w+/b")
        Else
           SetColor("w+/r, w+/r, , , w+/r")
        Endif
    
        SvBx := SaveScreen( 9, 0, 22, 77 )
        SBox( 10, 1, 21, 75 )
    
        Rodape()
    
        SetCursor(2)
        MemoEdit( cRet_, 11, 2, 20, 74, .F.) // .F. NÆo Editar MemoEdit
        SetCursor(0)
        
        SetColor ( vCor )
    
        RestScreen( 9, 0, 22, 77, SvBx )
    
    ** End Proc**
    
    
    
    
    
  4. Boa Noite, Amigos !

     

    Pegando carona aqui da duvida do amigo Jorge Andrade,

     

    Também estou com a mesma dificuldade de eliminar a Msg de boas vindas do ACBrNFeMonitor

    Ainda tenho um outro problema mais grave: Quando envio comandos de dois terminais ao mesmo tempo, a resposta em algumas vezes volta para o terminal errado.

    Exemplo: Comando NFe.ConsultaCadastro() 

    Terminal1, Consulta Cadastro1

    Terminal2, Consulta Cadastro2

     

    Resposta: Cadastro1 -> Terminal2

                     Cadastro2 -> Terminal1

     

    A vezes repete a mesma consulta nos dois terminais e ainda não consegui descobrir o problema !!!

     

    Forte abraço a todos.

  5. Boa Tarde, Janderson !

     

    CST 00 - Tributada Integralmente !

     

    Exemplo:

     

    Valor do Produto 100,00

    Aliq ICMS SP          18,00 %

    Valor ICMS             18,00

    Valor Total da NF 100,00

     

    Resumindo, Valor do ICMS CST 00 não compoe o total da NFe !

     

    Abraço!

  6. Boa Tarde, Rafael !

     

    Segue estas TAG´s:

     

    Exemplo de XML para CST = 00 - Tributada integralmente
     
    <ICMS>
       <ICMS00>
         <orig>0</orig>
         <CST>00</CST>
         <modBC>3</modBC>
         <vBC>100.00</vBC>
         <pICMS>18.00</pICMS>
         <vICMS>18.00</vICMS>
       </ICMS00>
    </ICMS>
     
    Exemplo de XML para CST = 10 - Tributada e com cobranca do ICMS por
    substituicao tributaria
     
    <ICMS>
       <ICMS10>
          <orig>0</orig>
          <CST>10</CST>
          <modBC>3</modBC>
          <vBC>100.00</vBC>
          <pICMS>18.00</pICMS>
          <vICMS>18.00</vICMS>
          <modBCST>4</modBCST>
          <pMVAST>50.00</pMVAST>
          <pRedBCST>10.00</pRedBCST>
          <vBCST>135.00</vBCST>
          <pICMSST>18.00</pICMSST>
          <vICMSST>6.30</vICMSST>
        </ICMS10>
    </ICMS>
     
    Os campos pMVAST e pRedBCST devem ser omitidos quando o conteudo
    for igual a zero.
     
    Exemplo de XML para CST = 20 - com reducao de base de calculo
    <ICMS>
       <ICMS20>
          <orig>0</orig>
          <CST>20</CST>
          <modBC>3</modBC>
          <pRedBC>10.00</pRedBC>
          <vBC>90.00</vBC>
          <pICMS>18.00</pICMS>
          <vICMS>16.20</vICMS>
      </ICMS20>
    </ICMS>
     
    Exemplo de XML para CST = 30 - Isenta ou nao tributada e com cobranca
    do ICMS por substituicao tributaria
     
    <ICMS>
       <ICMS30>
           <orig>0</orig>
           <CST>30</CST>
           <modBCST>4</modBCST>
           <pMVAST>50.00</pMVAST>
           <pRedBCST>10.00</pRedBCST>
           vBCST>135.00</vBCST>
           <pICMSST>18.00</pICMSST>
           <vICMSST>24.30</vICMSST>
       </ICMS30>
    </ICMS>
     
    Os campos pMVAST e pRedBCST devem ser omitidos quando o conteudo
    for igual a zero.
    Exemplo de XML para CST = 40 - Isenta
    <ICMS>
       <ICMS40>
          <orig>0</orig>
          <CST>40</CST>
       </ICMS40>
    </ICMS>
     
    Exemplo de XML para CST = 40 - Isenta, com isencao condicional
     
    <ICMS>
       <ICMS40>
           <orig>0</orig>
           <CST>40</CST>
           <vICMS>1800.00</vICMS>
           <motDesICMS>1</motDesICMS>
       </ICMS40>
    </ICMS>
     
    Os campos vICMS e motDesICMS devem ser informados quando a
    ISENSAO for condicional (exemplo: venda de veiculo com
    ISENSAO de ICMS para Taxista) *
    Exemplo de XML para CST = 41 - Nao tributada
     
    <ICMS>
       <ICMS40>
          <orig>0</orig>
          <CST>41</CST>
       </ICMS40>
    </ICMS>
     
    Exemplo de XML para CST = 50 - Suspensao
     
    <ICMS>
       <ICMS40>
          <orig>0</orig>
          <CST>50</CST>   
       </ICMS40>
    </ICMS>
     
    Exemplo de XML para CST = 51 - Diferimento
     
    <ICMS>
       <ICMS51>
          <orig>0</orig>
          <CST>51</CST>
       </ICMS51>
    </ICMS>
     
    Exemplo de XML para CST = 51 - Diferimento, com informacao do valor
    do tributo diferido quando exigido pela legislacao
     
    <ICMS>
       <ICMS51>
          <orig>0</orig>
          <CST>51</CST>
          <modBC>3</modBC>
          <pRedBC>20.00</pRedBC>
          <vBC>80.00</vBC>
          <pICMS>12.00</pICMS>
          <vICMS>9.60</vICMS>
       </ICMS51>
    </ICMS>
     
    Os campos modBC, pRedBC, vBC, pICMS e vICMS podem ser omitidos quando
    nao exigidos pela legisla??o ou o seu conte?do for igual a zero.
    Exemplo de XML para CST = 60 - ICMS cobrado anteriormente por substituicao
    tributaria
     
    <ICMS>
       <ICMS60>
           <orig>0</orig>
           <CST>60</CST>
           <vBCSTRet>135.00</vBCSTRet>
           <vICMSSTRet>24.30</vICMSSTRet>
       </ICMS60>
    </ICMS>
     
    Exemplo de XML para CST = 70 - Com reducao de base de calculo e cobranca de
    ICMS por substituicao tributaria
     
    <ICMS>
       <ICMS70>
           <orig>0</orig>
           <CST>70</CST>
           <modBC>3</modBC>
           <pRedBC>10.00</pRedBC>
           <vBC>90.00</vBC>
           <pICMS>18.00</pICMS>
           <vICMS>16.20</vICMS>
           <modBCST>4</modBCST>
           <pMVAST>100.00</pMVAST>
           <pRedBCST>10.00</pRedBCST>
           <vBCST>162.00</vBCST>
           <pICMSST>18.00</pICMSST>
           <vICMSST>12.96</vICMSST>
       </ICMS70>
    </ICMS>
     
    Os campos pMVAST e pRedBCST devem ser omitidos quando o conteudo
    for igual a zero.
    Exemplo de XML para CST = 90 - Outras
     
    <ICMS>
       <ICMS90>
           <orig>0</orig>
           <CST>90</CST>
           <modBC>3</modBC>
           <pRedBC>10.00</pRedBC>
           <vBC>90.00</vBC>
           <pICMS>18.00</pICMS>
           <vICMS>16.20</vICMS>
           <modBCST>4</modBCST>
           <pMVAST>100.00</pMVAST>
           <pRedBCST>10.00</pRedBCST>
           <vBCST>162.00</vBCST>
           <pICMSST>18.00</pICMSST>
           <vICMSST>12.96</vICMSST>
       </ICMS90>
    </ICMS>
     
    Os campos pRedBC, pMVAST e pRedBCST devem ser omitidos quando o conteudo
    for igual a zero.
    Exemplo de XML para CST = 90 - Outras, com informacao somente do CST
     
    <ICMS>
       <ICMS90>
           <orig>0</orig>
           <CST>90</CST>
       </ICMS90>
    </ICMS>
     
    Exemplo de XML para CST = 90 - Outras, com informacao do
    CST e ICMS proprio
     
    <ICMS>
       <ICMS90>
           <orig>0</orig>
           <CST>90</CST>
           <modBC>3</modBC>
           <pRedBC>10.00</pRedBC>
           <vBC>90.00</vBC>
           <pICMS>18.00</pICMS>
           <vICMS>16.20</vICMS>
       </ICMS90>
    </ICMS>
     
    Exemplo de XML para CST = 90 - Outras, com informacao
    do CST e ICMS ST
     
    <ICMS>
       <ICMS90>
           <orig>0</orig>
           <CST>90</CST>
           <modBCST>4</modBCST>
           <pMVAST>100.00</pMVAST>
           <pRedBCST>10.00</pRedBCST>
           <vBCST>162.00</vBCST>
           <pICMSST>18.00</pICMSST>
           <vICMSST>12.96</vICMSST>
       </ICMS90>
    </ICMS>
     
    Exemplo de XML para CST = 90 - Outras, com informacao
    do CST, ICMS proprio e ICMS ST
     
    <ICMS>
       <ICMS90>
           <orig>0</orig>
           <CST>90</CST>
           <modBC>3</modBC>
           <pRedBC>10.00</pRedBC>
           <vBC>90.00</vBC>
           <pICMS>18.00</pICMS>
           <vICMS>16.20</vICMS>
           <modBCST>4</modBCST>
           <pMVAST>100.00</pMVAST>
           <pRedBCST>10.00</pRedBCST>
           <vBCST>162.00</vBCST>
           <pICMSST>18.00</pICMSST>
           <vICMSST>12.96</vICMSST>
       </ICMS90>
    </ICMS>
     
    Exemplo de XML para para CRT=1 e CSOSN = 101
    <ICMS>
       <ICMSSN101>
           <orig>0</orig>
           <CSOSN>101</CSOSN>
           <pCredSN>1.25</pCredSN>
           <vCredICMSSN>12.96</vCredICMSSN>
       </ICMSSN101>
    </ICMS>
     
    Exemplo de XML para para CRT=1 e CSOSN = 102, 103, 300 ou 400
    <ICMS>
       <ICMSSN102>
           <orig>0</orig>
           <CSOSN>102</CSOSN>
       </ICMSSN102>
    </ICMS>
     
    O campo CST pode ser informado com 102, 103, 300 ou 400
    Exemplo de XML para CRT=1 e CSOSN = 201
     
    <ICMS>
       <ICMSSN201>
           <orig>0</orig>
           <CSOSN>201</CSOSN>
           <modBCST>4</modBCST>
           <pMVAST>100.00</pMVAST>
           <pRedBCST>10.00</pRedBCST>
           <vBCST>162.00</vBCST>
           <pICMSST>18.00</pICMSST>
           <vICMSST>12.96</vICMSST>
           <pCredSN>1.25</pCredSN>
           <vCredICMSSN>12.96</vCredICMSSN>
       </ICMSSN201>
    </ICMS>
     
    Os campos pMVAST e pRedBCST devem ser omitidos quando o
    conteudo for igual a zero.
    Exemplo de XML para CRT=1 e CSOSN = 202 ou 203
     
    <ICMS>
       <ICMSSN202>
           <orig>0</orig>
           <CSOSN>202</CSOSN>
           <modBCST>4</modBCST>
           <pMVAST>100.00</pMVAST>
           <pRedBCST>10.00</pRedBCST>
           <vBCST>162.00</vBCST>
           <pICMSST>18.00</pICMSST>
           <vICMSST>12.96</vICMSST>
       </ICMSSN202>
    </ICMS>
     
    O campo CST pode ser informado com 202 ou 203.
    Os campos pMVAST e pRedBCST devem ser omitidos quando o conteudo
    for igual a zero.
    Exemplo de XML para CRT=1 e CSOSN = 500
     
    <ICMS>
       <ICMSSN500>
           <orig>0</orig>
           <CSOSN>500</CSOSN>
           <vBCSTRet>162.00</vBCSTRet>
           <vICMSSTRet>12.96</vICMSSTRet>
       </ICMSSN500>
    </ICMS>
     
    O campo CST pode ser informado com 202 ou 203
    Exemplo de XML para CRT=1 e CSOSN = 900
     
    <ICMS>
       <ICMSSN900>
           <orig>0</orig>
           <CSOSN>900</CSOSN>
           <modBC>3</modBC>
           <pRedBC>10.00</pRedBC>
           <vBC>90.00</vBC>
           <pICMS>18.00</pICMS>
           <vICMS>16.20</vICMS>
           <modBCST>4</modBCST>
           <pMVAST>100.00</pMVAST>
           <pRedBCST>10.00</pRedBCST>
           <vBCST>162.00</vBCST>
           <pICMSST>18.00</pICMSST>
           <vICMSST>12.96</vICMSST>
           <pCredSN>1.25</pCredSN>
           <vCredICMSSN>12.96</vCredICMSSN>
       </ICMSSN900>
    </ICMS>
     
    Os campos pRedBC, pMVAST e pRedBCST devem ser omitidos
    quando o conteudo for igual a zero.
    Exemplo de XML para CRT=1 e CSOSN = 900, com informacao do CSOSN
     
    <ICMS>
       <ICMSSN900>
           <orig>0</orig>
           <CSOSN>900</CSOSN>
       </ICMSSN900>
    </ICMS>
     
    Exemplo de XML para CRT=1 e CSOSN = 900,
    com informacao do CSOSN e valor do ICMS passivel
    de credito pelo destinatario
     
    <ICMS>
       <ICMSSN900>
           <orig>0</orig>
           <CSOSN>900</CSOSN>
           <pCredSN>1.25</pCredSN>
           <vCredICMSSN>12.96</vCredICMSSN>
       </ICMSSN900>
    </ICMS>
     
    Exemplo de XML para CRT=1 e CSOSN = 900,
    com informacao do CSOSN e ICMS proprio
     
    <ICMS>
       <ICMSSN900>
           <orig>0</orig>
           <CSOSN>900</CSOSN>
           <modBC>3</modBC>
           <pRedBC>10.00</pRedBC>
           <vBC>90.00</vBC>
           <pICMS>18.00</pICMS>
           <vICMS>16.20</vICMS>
       </ICMSSN900>
    </ICMS>
     
    Exemplo de XML para CRT=1 e CSOSN = 900,
    com informacao do CSOSN, ICMS proprio e ICMS ST
     
    <ICMS>
       <ICMSSN900>
           <orig>0</orig>
           <CSOSN>900</CSOSN>
           <modBC>3</modBC>
           <pRedBC>10.00</pRedBC>
           <vBC>90.00</vBC>
           <pICMS>18.00</pICMS>
           <vICMS>16.20</vICMS>
           <modBCST>4</modBCST>
           <pMVAST>100.00</pMVAST>
           <pRedBCST>10.00</pRedBCST>
           <vBCST>162.00</vBCST>
           <pICMSST>18.00</pICMSST>
           <vICMSST>12.96</vICMSST>
       </ICMSSN900>
    </ICMS>
  7. Seon, boa noite.

    Independentemente de ser do simples, ou lucro real, ou presumido...

    Informe na tag vtottrib os respectivos percentuais baseado na tabela do IBPT.

    Destaque em dados adicionais a seguinte frase: Valor aproximado do imposto R$ 999,99 (99,99%) fonte IBPT.

    boa sorte!

  8. Valeu, Juliomar !

     

    Se você esta na estrada faz tempo, digo trabalhando com programação, informatica, redes, suporte, etc... etc...

     

    Sabe como é usuário !

     

    Eh de deixar muitos aqui irritados mesmo, mas fique na paz !

     

    Não vale a pena ficar irritado, "A CALMA É A VIRTUDE DOS FORTES"

     

    Forte abraço, Amigo !

  9. Gente, 

     

    Alguns moderadores estão por um fio com o pessoal que não tem o SAC.

     

    Vejo cada resposta aqui, que as vezes não precisa ser ditas !

     

    Causa a impressão que um dia, quem não for do SAC, ficará na mão mesmo !

     

    Pessoal pega leve, nem todo mundo sabe tudo.

     

    Srs, me desculpe, é só um desabafo construtivo!

     

    Forte abraço

     

    Fiquem todos na PAZ...

  10. Juaumkiko, Boa Tarde !

    Obrigado por responder !

    De forma nenhuma tive, ou tenho a intenção de prejudicar o projeto.

    Acompanho este projeto, especificamente o ACBrNFeMonitor, desde suas primeiras versões, em meados de 2009.

    Sempre tive contato direto com o Sr André Morais (Fundador) por email, e trocamos muitas informações junto com Daniel Simoes, inclusive falamos algumas vezes por telefone sobre um projeto de parceria com os módulos "DJ PDV".

    Olhando na lista de doações do projeto vai encontrar contribuições regulares de minha pessoa.

    Sim pretendo me associar ao SAC não tenha dúvidas disso, simplesmente solicitei ajuda aqui no forum porque o prazo esta realmente curto !

    MAIS UMA VEZ EU REPITO: NÃO TENHO INTENÇÃO DE PREJUDICAR NINGUÉM, NEM AQUI OU EM QUALQUER OUTRO LUGAR!

    Obrigado;

    Forte abraço a todos.

  11. Pessoal, Boa Tarde !,

     

    Uma luz por favor !

     

    O Ultimo ACBeNFeMonitor 0.7.7.4, não contem o envio das novas tags vTotTrib para envio ao SEFAZ a partir do dia 10/06/2013 Lei 12741/12 ( Lei da Transparencia ao  Consumidor ).

     

    Como cada versão é liberada trimestralmente e a ultima, ocorreu em 02/06/2013, nós que não temos o SAC ficamos de fora?

     

    Não domino a linguagem DELPHI para compilar os arquivos do SVN, se alguem quiser ajudar e postar o link para download, fico muito agradecido.

     

    Desculpe a minha preocupação, mas o prazo esta cada vez mais curto !!!

     

    Forte abraço a todos;

  12. Regys, Boa Noite !

     

    Perfeito, agora entendi o funcionamento:

     

    Bastou informar as [VARIAVEIS] no campo "Mensagem do Email" em Configurações do ACBrNFeMonitor. Tudo OK

     

    Sugestão:

    Seria interessante, talvez, uma variavel p/ texto livre no corpo do Email, assim sempre que precisar informa algum adicional p/ o destinatario!

     

    Forte abraço.

     

    Toninho Silva ( SysTux )

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...