Luiz Fernando

Colegas alguém aqui preenche o troco no XML do sat queria saber como proceder , obg

Luiz Fernando

Herberson muito grato pela sua atenção, estou analisando aqui o que pode ser, retorno ao tópico assim que conseguir.

Obg

Luiz Fernando

Herberson aqui estava mesmo em homologação mudei para produção como tb  deixei desta forma cUltNsuRec :="0,  sem sucesso no retorno, sem querer abusar de sua ajuda , sera que esta parte da minha classe esta igual a sua.

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)

obg

Luiz Fernando

Heberson esta caindo aqui

   If Len(aRegistros)==0
      MsgAlert("Não existe nenhum documento pendente.","Consulta")
   endif
 

estou fazendo teste com dois CNPJ todos os dois tem nfe emitida nos ultimos dias, e mais de uma por dia.

Obg

Luiz Fernando

Herberson agradeço pela reposta, fiz conforme sua dica, mais ainda continua não retornando nada.

caso mais algum colega tiver alguma sugestão

obg

Colegas, alguém esta usando este method, caso sim consegue enxergar algo errado no codigo abaixo, pois o retorno esta sendo sempre falso.

  oNfeUtil:=TVoNfeUtil2G():New(aEmpresa[1,1],aEmpresa[1,4],aEmpresa[1,3],,,,aEmpresa[1,2],,aEmpresa[1,25])

  cUltNSURecebido:=100
  cUltNsu := "0"
  cMaxNsu := "30"
  cQtdeDocto := 1
  aRegistros:={}
  aSize(aRegistros,0)
  cRetorno    := ''
  if oNfeUtil:distNSU(aEmpresa[1,1],sonumero(aEmpresa[1,6]),@cUltNSURecebido,"",@cUltNsu,@cMaxNsu,@cQtdeDocto,@cRetorno,@aRegistros)
	  ? 'ok'
  else
     ? 'não ok'  // esta caindo aqui, o arquivo manifest.txt é criado vazio
  endif	  

obg

Luiz Fernando

 

http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=19432

Kapiaba vi que a versão desta DLL é de 2013, depois que o autor já tinha falecido, vc pegou aonde esta versão.

Obg

Kapiaba se eu mudar ira funcionar, sou contra usar classes de terceiro no sistema, o que da estou tirando,  mais neste caso não sera tão simples assim, tenho varia subtelas usando esta classe no PDV, uso ela  devido ter um visual diferente.

 

comandos abaixo ? TGSAY? Não conheço. Ela é tipo a SSAY.PRG

Acredito que sim, é uma classe, veja o efeito dos get das imagens acima, aqui tem ele

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=7738

Engraçado que neste meu cliente tem 11 pc e nenhum roda a tela que tem este recurso.

Colegas tenho um PDV aonde utilizei os recurso da classe tgsay, funciona em dezenas de clientes, agora  num único cliente, aonde todas maquinas estão com a mesma versão do windows 10, não roda.

seria para ser assim

https://ibb.co/cNQuAU

mais neste cliente fica assim

https://ibb.co/ens2x9

mesmo sem as imagens, toda vez que tendo usar os comandos abaixo o pdv fica travado sem fazer ação algum, mesmo consigo fechar a tela normal, tipo não trava o sistema em si, alguém tem alguma sugestão.

Obg

Luiz Fernando

Jorge e Rochinha obg pelos esclarecimento, vou criar esta opção aqui no meu sistema.

Boa tarde, algum colega do forum usa o SAT em mais de uma maquina, queria saber se funciona legal.

Kapiaba vc podia fazer uns videos aula com o assunto (como ter tempo livre, mesmo sendo programador) e cobrar por isto, com certeza sera o grande nome de coach referente ao assunto em questão. rsrsrsrs 

Pessoal alguém conseguir fazer alteração na classe do Gilmer para produtos de combustivel e gás.

Só para deixar registrado aqui, depois de muita preocupação para achar o valor retido, fiz o teste passando tudo zerado, e esta indo de boa, varias notas feita hoje.

<ICMS>
<ICMSST>
<orig>0</orig>
<CST>60</CST>
<vBCSTRet>0.00</vBCSTRet>
<vICMSSTRet>0.00</vICMSSTRet>
<vBCSTDest>0.00</vBCSTDest>
<vICMSSTDest>0.00</vICMSSTDest>
</ICMSST>
</ICMS>

 

Pessoal de Minas Gerais, preciso saber, se a SEFAZ/MG, já está autorizando colocar a PLACA e a UF quando a nota é interestadual? 

Kapiaba aqui comigo nota de SP para SP informo tudo sem problema, agora de SP para outros estados preciso tirar a placa e uf

 

RESOURCE"EDITAR_XML" 

?? 

Kapiaba criei uma DIALOG no pelles com apenas um campo edit multiline, apenas isto

Pessoal depois de 6 dias consegui fazer a NFE, é foda vc seguir o manual como o colega postou acima, mais na pratica é outra coisa, a forma abaixo já tinha feito mais de uma vez, em homologação não passa, só em produção que consegui, é muita sacanagem do sefaz ter dois ambiente aonde as consistencia não são as mesma.

para quem precisar é só fazer desta forma

-<ICMSST>

<orig>0</orig>

<CST>60</CST>

<vBCSTRet>272.80</vBCSTRet>

<vICMSSTRet>49.10</vICMSSTRet>

<vBCSTDest>0.00</vBCSTDest>

<vICMSSTDest>0.00</vICMSSTDest>

</ICMSST>

Pessoal agora tem um detalhe a classe do Gilmer ainda não gera este grupo sozinho ICMSST, aqui fiz uma jogada para poder editar o xml antes do envio coisa bem simples, dai posso editar e depois arrumar o sistema

veja o codigo, se o usuario for de suporte me abre uma dialog com o campo memo com o conteudo do xml dai edito o que quizer, dentro da pasta remessa ira ter o XML original gerado pela classe, já dentro do assinado o XML corrigido manualmente.

	if oNFe:GerarXml( @cDocXml )
      // faz validação e envio do do XML para Sefaz
      if cUsuario='88'
	      cNotes     := cDocXml   
	      DEFINE DIALOG oDlg5 RESOURCE"EDITAR_XML" 

	        redefine get oMemo var cNotes memo of oDlg5 id 201 
	
	      ACTIVATE DIALOG oDlg5 center      
	      cDocXml := cNotes
      endif

Valdir veja aqui

-<ICMS>


-<ICMS60>

<orig>0</orig>

<CST>60</CST>

<vBCSTRet>8865.75</vBCSTRet>

<pST>0.00</pST>

<vICMSSTRet>1595.84</vICMSSTRet>

</ICMS60>

</ICMS>

se eu subsituir o <ICMS60> pelo <ICMSST> tb da erro no grupo de icms

o que mais pega que tenho xml aqui de fornecedores de clientes meus usando desta forma, como tb tenho usando ICMSST , e todos validado 

Resposta da flexdocs sobre o problema

Prezado Sr. Luiz,

O Sr. está gerando o grupo do ICMS pela DLL? em caso positivo, basta fazer o que dissemos.

Se o Sr. informar o parâmetro CST da chamada ICMS400 com "S60" vai gerar o grupo ICMSST.

S60 - ICMSST para CST=60.

Mais o que não entendo que estou pegando notas de empresas grandes no ramo de gás e não tem este lance de ICMSST e sim ICMS60 pior que dois clientes com caminhão parado em Paulinia.

Valdir neste caso não precisa , são apenas 3 tags a mais, já vi varios xml protocolado, tudo certinho validado, mais não sei pq o meu não passa

-<ICMS>


-<ICMS60>

<orig>0</orig>

<CST>60</CST>

<vBCSTRet>8865.75</vBCSTRet>

<pST>0.0000</pST>

<vICMSSTRet>1595.84</vICMSSTRet>

</ICMS60>

</ICMS>

 

Este é para o combustível ?  A classe não esta preparada para ele, estou realizando ajuste, amanhã ou hoje estarei disponibilizando a alteração

 

 

Gilmer a alteração referente a isto foi bem simples, deixei aqui neste link

http://fivewin.com.br/index.php?/topic/27742-nfe-de-gás-classe-do-gilmer/

sobre o calculo não tem nada a ver com a sua classe, postei aqui para saber como pegar o imposto retido, pois as notas que chega no meu cliente já vem com 060, precisamos da nota com cst 010 para saber destes valores, mais como dize nada a ver com a classe em si, pq as tag de retenção já esta tudo la na classe.

pessoal alguns NCM qdo for venda com ST precisa destas tags

estou perdido aqui pois cada xml e exemplo que vejo esta de uma forma, alguém poderia me dar uma luz como funciona este calculo

obg

Luiz Fernando

Pessoal antes de atualizar a classe eu fazia assim com a atg de pedido de compra, aonde quem esta comprando exige que a informação vai no XML

oNFe:SetValue("compra", 'xPed' , aDetalhe[1,57] )                           

mais agora da erro na hora de montar o xml, alguém poderia me ajudar nisto

Obg

Luiz Fernando

Para fazer o ajuste destes novos campos foi bem simples, mexer em apenas dois locais.

METHOD StruComb( oItem ) CLASS TVoNFe2G
   local axArray

   axArray := {}
   aadd(axArray, {"cProdANP",    TVoNFeItem():New("N", 1, 9,, ,,oItem:Comb_cProdANP   ) }  )
   AAdd(axArray, {"descANP",     TVoNFeItem():New("N", 2, 95,,,,oItem:Comb_descANP    ) }  )
   AAdd(axArray, {"pGLP",        TVoNFeItem():New("N", 0, 15,15 , 2,,oItem:Comb_pGLP  ) }  )
   AAdd(axArray, {"pGNn",        TVoNFeItem():New("N", 0, 15,15 , 2,,oItem:Comb_pGNn  ) }  )
   AAdd(axArray, {"pGNi",        TVoNFeItem():New("N", 0, 15,15 , 2,,oItem:Comb_pGNi  ) }  )
   AAdd(axArray, {"vPart",       TVoNFeItem():New("N", 0, 15,15 , 2,,oItem:Comb_vPart ) }  )
   aadd(axArray, {"CODIF",       TVoNFeItem():New("N", 0, 21,,,,oItem:Comb_CODIF  ) }  )
   aadd(axArray, {"qTemp" ,      TVoNFeItem():New("N", 0, 16,,4,,oItem:Comb_qTemp   ) }  )
   aadd(axArray, {"UFCons" ,     TVoNFeItem():New("N", 1,  2,, ,,oItem:Comb_UFCons   ) }  )
   aadd(axArray, {"CIDE"     ,   ::StruCombCIDE(oItem), 0 } )

return( axArray )

e tb nesta parte do código

   DATA Comb_cProdANP
   DATA Comb_descANP
   DATA Comb_pGLP
   DATA Comb_pGNn
   DATA Comb_pGNi
   DATA Comb_vPart
   DATA Comb_CODIF
   DATA Comb_qTemp
   DATA Comb_UFCons
   DATA Comb_qBCProd
   DATA Comb_vAliqProd
   DATA Comb_vCIDE