Alain da Silva

bom dia pessoal, alguém teria como postar o xml do evento S2299-DESLIGAMENTO

obrigado

Eu não uso a flexdocs mas achei interessante a postagem sua postagem e implementei no meu sistema. Agora posso verificar se o cliente esta habilitado ou não já no envio. Não sei se tem a mesma validade do cadesp, mas pelo menos já te da um alerta.

veja o retorno que ele traz: 

<?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><soap:Body><nfeResultMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro4"><retConsCad versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe"><infCons><verAplic>SP_NFE_PL009_V4</verAplic><cStat>111</cStat><xMotivo>Consulta cadastro com uma ocorrência</xMotivo><UF>SP</UF><CNPJ>48209381000140</CNPJ><dhCons>2018-03-16T16:14:46-03:00</dhCons><cUF>35</cUF><infCad><IE>110563922119</IE><CNPJ>48209381000140</CNPJ><UF>SP</UF><cSit>0</cSit><indCredNFe>0</indCredNFe><indCredCTe>4</indCredCTe><xNome>AMIR CEREAIS LTDA - ME</xNome><xRegApur>NORMAL - REGIME PERIÓDICO DE APURAÇÃO</xRegApur><CNAE>4712100</CNAE><dIniAtiv>1982-01-04</dIniAtiv><dUltSit>2008-02-29</dUltSit><ender><xLgr>RUA CATAO</xLgr><nro>914</nro><xBairro>V ROMANA</xBairro><cMun>3550308</cMun><xMun>SAO PAULO</xMun><CEP>05049000</CEP></ender></infCad></infCons></retConsCad></nfeResultMsg></soap:Body></soap:Envelope>

Abs

pra quem usa a classe da flexdocs acho que já tem essa opção kapiaba.

http://www.flexdocs.com.br/guiaNFe/WS.consultaCad2G.html

Alguém pode postar um xml s1060 para comparar.

Tarde, algum amigo poderia verificar qual o erro no Xml.

Erro: O Evento informado não foi reconhecido pelo sistema. schema do evento inválido

<eSocial xmlns="http://www.esocial.gov.br/schema/evt/evtTabAmbiente/v02_04_01">
<evtTabAmbiente Id="ID1431986960000002018030715030600002">
<ideEvento>
<tpAmb>2</tpAmb>
<procEmi>1</procEmi>
<verProc>1.0.0.0</verProc>
</ideEvento>
<ideEmpregador>
<tpInsc>1</tpInsc>
<nrInsc>43198696</nrInsc>
</ideEmpregador>
<infoAmbiente>
<inclusao>
<ideAmbiente>
<codAmb>2</codAmb>
<iniValid>2018-02</iniValid>
<fimValid>2018-02</fimValid>
</ideAmbiente>
<dadosAmbiente>
<dscAmb>ADMINISTRACAO</dscAmb>
<localAmb>1</localAmb>
<tpInsc>1</tpInsc>
<nrInsc>43198696000468</nrInsc>
<fatorRisco>
<codFatRis>0501017</codFatRis>
</fatorRisco>
</dadosAmbiente>
</inclusao>
</infoAmbiente>
</evtTabAmbiente>
</eSocial>

boa tarde, alguém teria um exemplo de como fica o xml s1005 com mais de um estabelecimento cadastrado ?

Bom dia pessoal, não estou conseguindo atualizar meu folder conforme opção do combobox.

Estou fazendo assim:

  @ 33,320 COMBOBOX oSay3 VAR VarEvento[3] ITEMS ARRITEM6 OF DlgEmp Size 150,100 PIXEL ON CHANGE(FUNCAOCOMBO(VAREVENTO[3],ORAD,@NVALUE,@oFld))
  @ 55,5 FOLDEREX oFld SIZE 590,230 OF DlgEmp PIXEL ROUND 5 UPDATE  PROMPT  "S1000 Tabela de Estabelecimentos", "S1005 Tabela   .....

//*---------------------------------------------**
   function FUNCAOCOMBO(oCombo,oRadio,oVRadio,ofld)
//*---------------------------------------------**
   if SUBS(oCombo,1,5)="Todos".or.SUBS(oCombo,1,5)="S1000"
      oFld:noption:=1
      oFld:aDialogs[1]:Refresh()
      oFld:adialogs[1]:setfocus()
   elseif SUBS(oCombo,1,5)="S1005"
      oFld:noption:=2
      oFld:aDialogs[2]:Refresh()
      oFld:adialogs[2]:setfocus()

endif

Ele marca a aba 2 por exemplo mais não refresca os objetos dela, fica trazendo os objetos do folder 1

Sygecom, eu até vi essa pagina mas não consegui a propriedade que quero:

Tentei fazer aRetorno["friendlyname"] := oCertSelecao:Item(1):oid:friendlyname

Da erro:

Error description: Error CAPICOM.Store:CERTIFICATES:ITEM/6  DISP_E_UNKNOWNNAME: OID
   Args:
 

bom dia pessoal, eu consigo pegar a propriedade "nome amigável" do certificado?

Através do "CAPICOM.Store" eu pego alguns dados exemplo:            

oCertSelecao  := oCertificados:Select("Selecione o certificado para uso da Nf-e","Selecione o certificado",.F.)
oSerialNumber:= oCertSelecao:Item(1):SerialNumber  (numero do certificado)

Outra coisa, tem como saber todas as propriedades/nomes do certificado que existem?

obrigado
 

")

alguém já passou por esse retorno.

<cdResposta>408</cdResposta><descResposta>Erro na integração com o sistema CNPJ / CPF</descResposta>

não estou localizando que erro é esse

resposta: d:\progs\esocial\

Kapiaba, meu Windows 10 é 32bits.

Estranho que se vou no diretório via comando e coloco:

cd\progs\esocial     <<<enter>>

EsocialSign    >>enter  funciona.

se dou dois cliques nele também funciona.

Testei agora com o  waitrun("D:\PROGS\esocial\EsocialSign.jar") e nada, ele passa pelo comando e não faz o processo.

corrigi mas nenhum dos dois roda o programa. é Windows 10 kapiaba.

tenho um programa no diretório D:\PROGS\esocial\samuel\EsocialSign.jar

tenho um apasta entrada e outra saída.

na pasta entrada tenho o arquivo evtinfoEmpregador.

o que esse programa faz? ele vai na pasta evtinfoempregador assina o arquivo e grava ele na pasta saída, apagando ele da pasta entrada.

obs: se eu for e der dois cliques nele, ele faz o processo.

//chamada externa

      cFile := cFilePath( GetModuleFileName( GetInstance() ) ) + ;
                     "samuel\EsocialSign.jar"  // D:\ tem que existir mermo.
      WinExec( "javaws.exe " + cFile )
      syswait(20)
 

coloquei esse tempo, mas no modo manual, clicando nele o tempo é 2s.

depois eu vou no diretório e vejo se tem o arquivo pra dar seguimento no envio.

obrigado evando e kapiaba por responder.

Kapiaba, do seu jeito ele da um erro Incomplete statement or unbalanced delimiters, e do seu jeito Evandro na da erro mas não executa o programa.

bom dia pessoal, eu preciso chamar um programa externo pelo meu programa.

No caso seria esse: d:\progs\esocial\esocial.jar

já tentei winexec("javaws.exe d:\progs\esocial\EsocialSign.jar"), já tirei o javaws.exe e também não vai.

Qual a forma pra chamar esse arquivo?

se fizer dessa forma?

REDEFINE BROWSE oLbxpc ID 113 OF oDlg ALIAS "Peditem1" UPDATE ON CHANGE oDlg:Update()

ADD COLUMN TO oLbxpc DATA Peditem1->Ftnpedi Picture "999999" Align DT_CENTER Size 050 Header "Nº"+CRLF+"Cotação"

ADD COLUMN TO oLbxpc DATA Peditem1->Ftprod Picture "99999" Align DT_CENTER Size 050 Header "Codigo"

ADD COLUMN TO oLbxpc DATA Peditem1->Ftdesc Picture "@!" Align DT_LEFT Size 221 Header "Descrição Produto"

valeu sygecom, é isso mesmo, funcionou, obrigado.

não entendi kapiaba, a primeira imagem é do meu certificado ou eu estou doido...

não, só aparece meu certificado novo. esse serasa não aparece.

http://ap.imagensbrasil.org/image/dezacR

sim, o problema é que ele esta me mostrando esse certificado serasa  que não existe mais, ele foi removido, e o ac rais5, acho que não deveria estar me mostrando na lista de certifidados.

Bom dia, esta aparecendo dois certificados que não consigo desinstalar. Acho que foi quando eu estava com problema andei importando  e agora junto com o meu certificado, também aparece esses dois. Já tentei excluir pelo internet explorer, certificados, mas não aparece esses certificados para eu excluir.

Alguem sabe como eu desinstalo esses certificados?

http://ap.imagensbrasil.org/image/debHkU

**classe sefazclass

FUNCTION DomDocValidaXml( cXml, cFileXsd )
   LOCAL oXmlDomDoc, oXmlSchema, oXmlErro, cRetorno := "ERRO"

/*
   validando o arquivo s1000.xml
   esquema .\shema\evtinfoempregador.xsd
*/

   IF " <" $ cXml .OR. "> " $ cXml
      cRetorno:="Espaços inválidos no XML entre as tags"
      RETURN cRetorno   //mResultado("eSocial",IIF(m->hDados['NFEProducao'],"PRODUÇÃO","HOMOLOGAÇÃO"),cErroRet)
   ENDIF
   IF Empty( cFileXsd )
      RETURN "OK"
   ENDIF
   IF ! File( cFileXSD )
      cRetorno:="Erro não encontrado arquivo " + cFileXSD
      RETURN cRetorno   //mResultado("eSocial 1: ",IIF(m->hDados['NFEProducao'],"PRODUÇÃO","HOMOLOGAÇÃO"),cErroRet)
   ENDIF

   do while .t.
      cRetorno   := "Erro Carregando MSXML2.DomDocument.6.0"
      oXmlDomDoc := xhb_CreateObject( "MSXML2.DomDocument.6.0" )
      oXmlDomDoc:aSync            := .F.
      oXmlDomDoc:ResolveExternals := .F.
      oXmlDomDoc:ValidateOnParse  := .T.

      cRetorno   := "Erro Carregando XML"
      oXmlDomDoc:LoadXml( cXml )
      IF oXmlDomDoc:ParseError:ErrorCode <> 0
         cRetorno:= "Erro XML inválido " + ;
            " Linha: "   + AllTrim( Transform( oXmlDomDoc:ParseError:Line, "" ) ) + ;
            " coluna: "  + AllTrim( Transform( oXmlDomDoc:ParseError:LinePos, "" ) ) + ;
            " motivo: "  + AllTrim( Transform( oXmlDomDoc:ParseError:Reason, "" ) ) + ;
            " errcode: " + AllTrim( Transform( oXmlDomDoc:ParseError:ErrorCode, "" ) )
            exit
      ENDIF

      cRetorno   := "Erro Carregando MSXML2.XMLSchemaCache.6.0"
      oXmlSchema := xhb_CreateObject( "MSXML2.XMLSchemaCache.6.0" )
      cRetorno   := "Erro carregando " + cFileXSD

      oXmlSchema:Add( "http://www.esocial.gov.br/schema/evt/evtInfoEmpregador/v02_04_01", cFileXSD )

      oXmlDomDoc:Schemas := oXmlSchema
      oXmlErro := oXmlDomDoc:Validate()

      IF oXmlErro:ErrorCode <> 0
         cRetorno:= "Erro: " + AllTrim( Transform( oXmlErro:ErrorCode, "" ) ) + " " + ConverteErroValidacao( oXmlErro:Reason, "" )
         exit
      ENDIF
      cErroret:= "OK"
      exit
   ENDDO
RETURN cRetorno


FUNCTION ConverteErroValidacao( cTexto )
   LOCAL nPosIni, nPosFim
   cTexto := AllTrim( Transform( cTexto, "" ) )
   DO WHILE .T.
      IF ! "{" $ cTexto .OR. ! "}" $ cTexto
         EXIT
      ENDIF
      nPosIni := At( "{", cTexto ) - 1
      nPosFim := At( "}", cTexto ) + 1
      IF nPosIni > nPosFim
         EXIT
      ENDIF
      cTexto := Substr( cTexto, 1, nPosIni ) + Substr( cTexto, nPosFim )
   ENDDO
RETURN cTexto

bom dia, eu também estou procurando sobre isso, achei o seguinte. No site do pctoledo, vi com o josequintas que na classe sefazclass tem essa rotina. porém ele da a seguinte mensagem de erro:

Ele da a seguinte mensagem de erro:
evtInfoEmpregador.XSD#/schema/element[1][@name = 'eSocial']/complexType[1]/sequence[1]/element[2]
Elemento XSD não declarado: '{http://www.w3.org/2000/09/xmldsig#}Signature'.
: ADD
Args:
[ 1] = C http://www.esocial.gov.br/schema/evt/ev ... /v02_04_01
[ 2] = C .\SHEMA\evtInfoEmpregador.XSD

Inclusive achei um site que faz essa conversão do xsd para o xml mas que também apresenta o mesmo erro: http://xsd2xml.com/,

Error!!!
The 'http://www.w3.org/2000/09/xmldsig#:Signature' element is not declared.

Alguem sabe o problema?

bom dia, o primeiro erro acontece aqui:

Time from start: 0 hours 0 mins 58 secs
   Error occurred at: 04/12/2017, 08:50:26
   Error description: Error CAPICOM.HashedData.1/9  The HashedData object does not contain hashed value.
: _ALGORITHM
   Args:
     [   1] = N   4

Só aceita até 3, no caso nAlgorithm := CAPICOM_HASH_ALGORITHM_SHA_256  = 4 acontece o erro.

Será a versão da capicom.dll ? Alguem tem o contato do Jose Quintas?

Kapiaba, agora que vi as observações que fez. Esse mresultado é meu. É só uma função pra mostrar o erro.