crisvam

Olha, verifiquei pela a app da flexdocs e ela estava em operação. O windows que uso é o Pro 10 versão 22H2 e está atualizado.

Pessoal, mudou alguma coisa na emissão da NFC-e? Estou tentando emitir nota e está me retornando o erro 5002, falha na conexão, não foi possivel criar um canal seguro para SSL/TLS. Uso o Windows 10 pro, o certificado está instalado. Configurado SSL = 3.0 e TLS = 1.2, a sefaz está operando normalmente.

Tem o AnyDesk O aplicativo de desktop remoto rápido – AnyDesk

No meu caso é no sistema comercial mesmo. kkkkkk, Com o Sped os contadores pararam de estudar os livros fiscais obrigatórios, com o eSocial ficaram realmente bobos e com as leis trabalhistas e de reconfiguração do espectro trabalhista enlouqueceram. Na verdade eles estão a cada dia transferindo para a TI as responsabilidades e obrigações que tinham e são intrinsicamente deles.

Sempre faço isso, mas a cultura dos profissionais do direito, muitas vezes não se encontram com os da TI e muitas vezes eles pioram o entendimento

Senhores, Estou recorrendo aos colegas as implicancias legais no sistema erp por nós fornecidos ao clientes das seguintes questões: 1 - O que tem quer ser incluso no sistema para atender a LGPD - lei Geral de protenção de dados 2 - Relatorio de venda com pagamentos com cartão de crédito, pix e todo pagamento por meios eletrônicos. Sei que o Sped já mostra isto, mas alguns contadores estão exigindo uma relatorio especific sobre isto. Grato pela atenção de todos

Senhores, Estava enviando a sefaz mt a NFCE no modo assincrono, e de repente a sefaz mt não aceita mais no modo assincrono só no sincrono. Mas ao enviar a nota no modo síncrono, o WS não me retorna nem o número do recibo, nem a data e nem o protocolo. No modo assincrono, e utilizando a classe do Gilmer, o WS me retornava todos esses dadaos e ainda gravava o Xml assinado na subpasta Assinado. Alguém dos senhores que já resolveu isto (como receber esses dados) Poderia me dar uma luz de como fazer isto? Agradeço desde já a atenção dos senhores Obs. Uso Xharbour, Windows 10 e a classe do Gilmer

Olha, até ontem cedo a NFC-e estava sendo enviada normalmente a tarde começou aparecer este erro. Pedi apoio para a flexdoce e ela me madou o seguite: A partir de 04/10/2021 não será mais possível o envio assíncrono de lote que contenha somente uma NFC-e. O envio de uma única NFC-e em modo assíncrono vai rejeitada com a seguinte mensagem: Rejeição 452 - Solicitada resposta assíncrona para Lote com somente 1 (uma) NFC-e Alguem que usa a classe do Gilmer já passou por isto? Estou em mato grosso e não mudei nada no sistema.

Boa tarde Senhores, Alguem já viu este erro: 452 - Null - TVONEFEUTIL2G:ENVIANFE Grato a todos pela atenção Obs: Windows 10, classe do Gilmer

Bancana, Kapiaba

Senhores, Existe alguma maneira de buscar o XML da NFCE autorizada, quando este, por alguma razão, não foi gravado na pasta protocolo. Agradeço a todos a dica se possível

Olha a biblioteca da flexdoc necessita do dot net 4.1 ou mais e de no mínimo windows 7 pack 3, pois só a partir dessas versões a SSL 1.2 e TLL 2.0 e 3.0 estão instalados

Senhores, bom dia Uma pergunta idiota, mas que não sei como faz. Como mudo a data da máquina de dentro de meu programa

oExpBar := Texplorerbar:New(nTop, nLeft, nWidth, nHeight, odiag) Isto funciona

Kapiaaaaabaaaa, vc é o cara! Ok, my brother, valeu. BRIGADOOOOOOOO

Vou postar o codigo fonte aquie, se alguém tiver um tempo pra dar uma verificada> rocedure Ler_Xml() Memvar wCdf,dIni,dFim,bCond Local mXml,mDado :={},nArea,nOrd,Chave,cArq,Ano,Mes,mDia[2],lOpe:=.F. Local oRep,oDig,oGet[2],oFnt[2],oPen,cRod,cTit,Cabae,nField:=1,wCras,Arq Private dIni,dFim,vCond ******************************************************************************** Abre_ArqSistem(.T.) nOrd := IndexOrd() nArea := Select() Chave := Space(44) DbSelectArea("RETORNO") Retorno->(DbSetOrder(3) ) dIni := Ctod(Space(8) ) dFim := Ctod(Space(8) ) Flag := PesqDat() If Empty(dIni) Return Endif Ano := STR(YEAR(dIni),4) Mes := StrZero(Month(dIni),2) mDIA[1] := STRZERO(DAY(dIni),2) mDIA[2] := STRZERO(DAY(dFim),2) wCras := Empe->Raso Cabe := "Emissão da Empresa: "+wCras cTic := "XML calculado de "+mDia[1]+" a "+mDia[2]+" de "+Mes+" de "+Ano cRod := "Página: " Retorno->(OrdScope(TOPSCOPE,Dtos(dIni)) ) Retorno->(OrdScope(BOTTOMSCOPE,Dtos(dFim)) ) Retorno->(DbGotop() ) Do While Eval(vCond,Retorno->Demi) Chave := Retorno->Chav+"-nfe.xml" // Arq := MemoRead("\PVenda\remessa\Protocolos "+Chave) não funciona Arq :=cGetFile("\PVenda\remessa\Protocolos "+Chave) // funciona um por um Arq := Right(Arq,52) If Empty(Arq) MsgAlert("O arquivo "+Chave+" não foi encontrado","Cup_System:Alerata") Return Endif mXml := RetornaConteudoXml(Arq) AADD(mDado,{mXml[1,1],mXml[1,2],mXml[1,3],mXml[1,4],mXml[1,5]}) Retorno->(DbSkip() ) Enddo lOpe := MsgNoYes("Imprime o relatorio?","Cup_System: Pergunta") If lOpe Define Font oFnt[1] Name "Arial" Size 0,-12 Define Font oFnt[2] Name "Courier new" Size 0,-10 Define Pen oPen width 1 Report oRep Title cTit Pen oPen Font oFnt[1],oFnt[2] Caption "Ver Relatorios"; Header Cabe,"" Center Footer Dtoc(Date() )+" "+cRod+Str(oRep:nPage,3) CENTER; PREVIEW Column Title "Documento" Data mDado[nField,1] Font 2 Column Title "Unid" Data mDado[nField,2] Font 2 Column Title "Qtde" Data mDado[nField,3] Picture "@E ##,###.##" Font 2 Column Title "Punit" Data mDado[nField,4] Picture "@E ##,###.##" Font 2 Column Title "Total" Data mDado[nField,5] Total Picture "@E ###,###.##" Font 2 End Report oRep:bSkip := {|| nField++} oRep:oTitle:aFont[1] := {|| 1 } oRep:cPageTotal := "Total da Página: " oRep:cGrandTotal := "Total das notas aprovadas: " Activate Report oRep WHILE nField <= len(mDado) Retorno->(DbSetOrder(nOrd) ) oFnt[1]:End() oFnt[2]:End() DBSelectArea(nArea) Endif ******************************************************************************** Return // Fim do Proc Ler_Xml ******************************************************************************** Function RetornaConteudoXml(cFileName) Local cDoc:=Space(9),nVdoc,vUnid,nQtde,pUnit,hFile,mRet := {} Local xmlDoc,xmlIter,xmlNode,cNode,cAttrib,cValue,oCampo,oConteudo ******************************************************************************** cNode := NIL cAttrib := NIL cValue := NIL hFile := FOpen("\Pvenda\remessa\Protocolos\"+cFilename) If FError()<>0 ? "Erro ao abri o arquivo",Ferror() Return Endif xmlDoc := TXmlDocument():New(hFile ) xmlDoc:Read(cFilename) If xmlDoc:nStatus != 1 Alert("erro ao ler XML ") Return Nil Endif xmlIter := TXmlIterator():New( xmlDoc:oRoot ) xmlNode := xmlIter:Find() DO WHILE xmlNode != NIL If !empty(xmlNode:cData) If subs(xmlNode:cData,1,1) # "<" oCampo :=xmlNode:cName oConteudo:=xmlNode:cData Endif Else oCampo :=xmlNode:cName oConteudo:="" Endif If oCampo == "xPed" cDoc := oConteudo ElseIf oCampo == "uCom" vUnid := oConteudo ElseIf oCampo == "qCom" nQtde := oConteudo ElseIf oCampo == "vUnCom" pUnit := oConteudo ElseIf oCampo == "vProd" nVdoc := oConteudo Endif // alert( Padr("Campo...: "+oCampo,70)+";"+; // Padr("Conteudo: "+oConteudo,70)) xmlNode := xmlIter:Next() // joga pro proximo campo Enddo AADD(mRet,{cDoc,vUnid,Val(nQtde),Val(pUnit),Val(nVdoc)} ) ******************************************************************************** Return (mRet) // Fim da função RetornaConteudoXml() ********************************************************************************

Obrigado a: Lucimauromelo kapiaba Ladinilson Engraçado que as funções: Adir, Directory, cGetFile Talvez a minha versão do xHarbour teja com problemas

Senhores, Tenho um problema com a função File, assim: Tenho um arqivo de controle de chave das NFC-e enviadas Pego a Chave := Chave+"-nfe.xml" Path = "\Pvenda\Remessa\Protocolos\Chave" O arquivo XML existe na pasta protocolos, mas a função File não o encontra. ? File("\Pvenda\Remessa\Protocolos\Chave") A função me retorna .F. ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------- A função Adir Encontra os arquivos XML, mas eu gostaria de fazer um While no arquivo de chaves e ler o XML no arquivo Protocolos, pois a função Adir ler todos os arquivos da pasta e eu gostaria de escolher os XMLs pela chave como mostrei acima. Já fiz um filtro nos arquivos lidos pela função Adir, Mas ao tentar abrir o arquivo com a Função Fopen, esta me retorna False e daí a Classe TxmlDocument não consegue ler o arquivo.. A função cGetFile, também ler, mas de um em um arquivo Alguem tem uma ideia de como solucionar isto e que possa me dar uma clareada? Grato a todos

Você se informará melhor direto no site da Flexdocs https://flexdocs.net/guiaNFe/

Faça uma Matriz com as opções. Por ex.: mItem :={"A vista","A Vista 20%","---------------------","A prazo","A prazo 1X","A prazo 2X","Aprazo 3X","A Prazo 4X","-------------------------","Cartão Debito","Cartão Debito 1X"} Se For com resource ---> Redefine ComboBox oCbx Var mItem[1] ID 101 ITEMS mIte Font oFnt ON Change Alias->(DbSetOrder(oCbx:nAT) )

Assim: oExpBar := TExplorerBar():New(30,10,138,298,odigmov) opan[1] := oExpBar:AddPanel("Movimento","\SCF\Bitmap\People.Bmp") Define Font oFnt Name "Courier New" Size 0,-15 oPan[1]:SetFont(oFnt)

A fonte do panel. Mas já resolvi. Grato João

Bom dia colegas, Alguém sabe me informar como aumentar a fonte da Classe TexpBar

Bom dia colegas. Alguem do grupo saberia me informar como exclui isto: Tenho os sistemas windows 7 e windows 10, mas me aparece assi: 1 - Windows 7 2 - Windows 7 3 - Windows 10 Preciso excluir uma das opções Se alguém já passou por isto, poderia me informar como resolveu? Antes eu excluia com o boot.ini e attrib, mas no windos 10 não sei que comando utilizar Grato a todos.

Colegas, Nunca tive muito tempo e nem muita vontade de mudar de DBF para SQL, mas sinto que do jeito que as coisas caminham não vai ter mais jeito. Vou ter que encarar Assim sendo, gostaria de saber dos colegas que já estão usando SQL, quais as maiores dificuldades que vocês encontram na manutenção do sistema que roda com SQL Quais os problemas mais comuns e se as resoluções são facilmente contornáveis. Grato a todos e desde já muito obrigado