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

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.

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>

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

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>

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 <vBCSTRet>216.00</vBCSTRet> <vICMSSTRet>25.92</vICMSSTRet> <vBCSTDest>216.00</vBCSTDest> <vICMSSTDest>10.35</vICMSSTDest> 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