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

segue retorno completo, se alguem souber... <s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"> <s:Body> <ConsultarLoteEventosResponse xmlns="http://www.esocial.gov.br/servicos/empregador/lote/eventos/envio/consulta/retornoProcessamento/v1_1_0"> <ConsultarLoteEventosResult> <eSocial xmlns="http://www.esocial.gov.br/schema/lote/eventos/envio/retornoProcessamento/v1_3_0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <retornoProcessamentoLoteEventos> <ideEmpregador> <tpInsc>1</tpInsc> <nrInsc>43198696</nrInsc> </ideEmpregador> <ideTransmissor> <tpInsc>1</tpInsc> <nrInsc>43198696000468</nrInsc> </ideTransmissor> <status><cdResposta>201</cdResposta> <descResposta>Lote processado com sucesso.</descResposta> </status><dadosRecepcaoLote><dhRecepcao>2018-01-09T22:47:40.327</dhRecepcao> <versaoAplicativoRecepcao>0.1.0-A0257</versaoAplicativoRecepcao><protocoloEnvio>1.2.201801.0000000000001097643</protocoloEnvio> </dadosRecepcaoLote><dadosProcessamentoLote><versaoAplicativoProcessamentoLote>1.0.0.0</versaoAplicativoProcessamentoLote> </dadosProcessamentoLote><retornoEventos><evento Id="ID1431986960000002018010922472300000"> <retornoEvento><eSocial xmlns="http://www.esocial.gov.br/schema/evt/retornoEvento/v1_2_0"> <retornoEvento Id="ID1431986960000002018010922472300000"><ideEmpregador><tpInsc>1</tpInsc> <nrInsc>43198696</nrInsc></ideEmpregador><recepcao><tpAmb>2</tpAmb><dhRecepcao>2018-01-09T22:47:40.327</dhRecepcao> <versaoAppRecepcao>0.1.0-A0257</versaoAppRecepcao><protocoloEnvioLote>1.2.201801.0000000000001097643</protocoloEnvioLote ></recepcao><processamento> <cdResposta>408</cdResposta><descResposta>Erro na integração com o sistema CNPJ / CPF</descResposta> <versaoAppProcessamento>7.0.0-A2590</versaoAppProcessamento> <dhProcessamento>2018-01-09T22:47:59.513</dhProcessamento> </processamento></retornoEvento></eSocial></retornoEvento></evento> </retornoEventos></retornoProcessamentoLoteEventos></eSocial></ConsultarLoteEventosResult> </ConsultarLoteEventosResponse></s:Body></s:Envelope> ")

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.