crisvam
-
Posts
1,150 -
Joined
-
Last visited
-
Days Won
23
Posts posted by crisvam
-
-
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.
-
-
Em 02/10/2023 at 14:30, kapiaba disse:
Se for no PROGRAMA DE FOLHA DE PAGAMENTOS, salvo engano, isso é permitido. Pero, como faz 150 anos que não trabalho mais nesta área, não tenho certeza, agora NO PONTO ELETRÔNICO, NEM A PAU JUVENAL. abs.
Abs.
Regards, saludos.
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.
-
Em 02/10/2023 at 13:18, kapiaba disse:
Então, se o contador está pedindo este relatório ESPECÍFICO, ele dentro das normas da LGPD(não é LGBT-kkkkkk), é que tem que passar para TI como deve se feito, certo? E na dúvida, SEMPRE consulte aquele "Kara" o OAB.
Abs.
Regards, saludos.
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
-
-
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) )
-
-
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
NFC-e
in Programação
Posted
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.