e-social ou sped folha

[locio]

Prezados,

Alguém no fórum já está trabalhando no desenvolvimento de ferramenta para atender as exigências do e-social.

Gostaria de trocar idéias.

Grato,

Lócio

[jairfab]

Eu já estou estudando o material, em breve vou iniciar o desenvolvimento!

[Luan de Lima]

Olá,

Sou iniciante com programação em clipper e intermediário com programação em geral, para dizer verdade. Estou a estudar o e-Social, a fim de implementá-lo junto ao sistema da empresa na qual eu estagio.
Gostaria muito de poder trocar informações com vocês sobre o e-Social.
Se alguém puder me dar uma ajuda sobre o que estudar para começar a desenvolver o e-Social no sistema, fico grato pela ajuda.
Estou à procura de um tutorial, mas como é algo muito novo, acredito que eu não vá achar com facilidade. Caso alguém aqui ache ou faça um, favor compartilhar.
Obrigado pela ajuda desde já.

Abraço,

Luan

[jairfab]

Comecei o desenvolvimento do ESocial

Alguem aqui no forum poderia dar algumas dicas de como criar uma pasta de compartilhamento no svn ou criar a pasta e passar o acesso para mim.

Gostaria de compartilhar o a class que estou iniciando e contar com a colaboração dos colegas que tem interesse no desenvolvimento do esocial para xharbour

[Luan de Lima]

Comecei o desenvolvimento do ESocial

Alguem aqui no forum poderia dar algumas dicas de como criar uma pasta de compartilhamento no svn ou criar a pasta e passar o acesso para mim.

Gostaria de compartilhar o a class que estou iniciando e contar com a colaboração dos colegas que tem interesse no desenvolvimento do esocial para xharbour

jairfab,

Dá uma olhada nesse tutorial:
http://mostafazh.me/2009/03/02/how-to-u ... ogle-code/

Se precisar de ajuda com o inglês eu posso traduzir, mas acho que as imagens já dão uma boa ajuda e os termos também são bem básicos.

Espero ter ajudado,

Luan

[Edson Silva]

Ola pessoal, eu trabalho com clipper 5.2 , alguem sabe se existe alguma possibilidade de gerar esse arquivo da folha em xml em clipper, pois na nota fiscal eletronica tem uma ferramenta que faz isso.
Grato

[jairfab]

Xml é um arquivo txt, portanto pode ser gerado em clipper!

[paiva_dbdc]

Boa tarde

como anda o desenvolvimento ?

Afinal e´para quando esse arquivo ? Perguntei a um contador a uns 2 meses ele acessou o site e falou que era so para Domestico ??!! por enquanto.

como podemos ajudar ?


ob

Paiva

[jairfab]

Foi prorrogado para junho/2014 mas eu continuo desenvolvendo o projeto já concluir uns 30% do projeto, montei a class para gerar os arquivos xml e agora estou trabalhando com as informações dos arquivos. Porem não apareceu ninguém para ajudar no desenvolvimento, continuo tocando projeto sozinho. chegue ante a criar um projeto no svn.

[paiva_dbdc]

Me anexe no skyper e podemos ver em que posso ajudar.
paiva_sistemas

Gerar xml NAo e´dificil e´= a txx + trabalhoso por ter que ficar acrindo e fechando se perde muito tempo com isso estou gerando e apanhando no homolognet.xml.

se DER para gerar UM ou Uns arq temporarios e depois a funçao geraria o sped ficaria ate + facil para OUTROS que queiram usar ou se vc for comercializar.

ab

Paiva

[jairfab]

Eu estou fazendo assim :

Código: Selecionar todos

::incluiTag(1,"evtInfoEmpregador")
::incluiTag(2,"versao",::versao)
::incluiTag(2,"infEvento")
::incluiTag(3,"idEvento","S1000" )
::incluiTag(3,"ideEvento")
::incluiTag(3,"tpAmb",::tpAmb)
::incluiTag(3,"procEmi",::procEmi )
::incluiTag(3,"indSegmento",::indSegmento )
::incluiTag(3,"verProc",::verProc)
::incluiTag(3,"/ideEvento")


METHOD incluiTag(nTipo,cTag,cValor) CLASS eSocial

   IF nTipo = Nil
      nTipo := 0
   ENDIF 

   IF cValor = Nil
       IF nTipo = 0
          ::cLine += '<'+cTag+'>'
       ELSEIF nTipo = 1
          ::cLine += SPACE(3)+'<'+cTag+'>'
       ELSEIF nTipo = 2
          ::cLine += SPACE(6)+'<'+cTag+'>'
       ELSEIF nTipo = 3
          ::cLine += SPACE(9)+'<'+cTag+'>'
       ELSEIF nTipo = 4
          ::cLine += SPACE(12)+'<'+cTag+'>'
       ELSEIF nTipo = 5
          ::cLine += SPACE(15)+'<'+cTag+'>'
       ELSEIF nTipo = 6
          ::cLine += SPACE(18)+'<'+cTag+'>'
       ELSEIF nTipo = 7
          ::cLine += SPACE(21)+'<'+cTag+'>'
       ELSEIF nTipo = 8
          ::cLine += SPACE(24)+'<'+cTag+'>'
       ELSE
          ::cLine += SPACE(21)+'<'+cTag+'>'
       ENDIF 

   ELSEIF EMPTY(cValor)

       IF nTipo = 0
          ::cLine += '<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 1
          ::cLine += SPACE(3) +'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 2
          ::cLine += SPACE(6) +'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 3
          ::cLine += SPACE(9) +'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 4
          ::cLine += SPACE(12) +'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 5
          ::cLine += SPACE(15) +'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 6
          ::cLine += SPACE(18) +'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 7
          ::cLine += SPACE(21) +'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 8
          ::cLine += SPACE(24) +'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSE
          ::cLine += SPACE(21) +'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ENDIF 
       
   ELSE

       IF nTipo = 0
          ::cLine += '<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 1
          ::cLine += SPACE(3)+'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 2
          ::cLine += SPACE(6)+'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 3
          ::cLine += SPACE(9)+'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 4
          ::cLine += SPACE(12)+'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 5
          ::cLine += SPACE(15)+'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 6
          ::cLine += SPACE(18)+'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 7
          ::cLine += SPACE(21)+'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSEIF nTipo = 8
          ::cLine += SPACE(24)+'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ELSE 
          ::cLine += SPACE(21)+'<'+cTag+'>'+cValor+'</'+cTag+'>'
       ENDIF 

   ENDIF

   *::cLine := UPPER(::cLine)
   FWRITE(::nHandle,::cLine+CRLF)
   ::cLine := ""

   
RETURN Nil

[jairfab]

Quanto a utilização de arquivos temporário, e montei a class com o objetivo de gerar apenas o arquivo xml, neste caso a class recebe as informações e simplesmente grava o arquivo de saida.

Código: Selecionar todos

FUNCTION MAIN 
*--- Geracao do arquivo ---*
oSocial:= eSocial()
*--- Cadastro da empresa ---* 
oSocial:nomeRazao           := "Empresa Teste Ltda "
oSocial:tpInscricao         := STRZERO(VAL(Empresa->RETIPINS),1)
oSocial:cNpjEmp             := "99.999999/9999-99"
oSocial:classTrib           := "21"
oSocial:natJuridica         := STRZERO(Empresa->NATJUR,4)

*--- Informacoes da softhowse ---*
oSocial:cnpjSoftwareHouse   := "05.672.999/0001-00"
oSocial:nomeSoftRazao       := "empresa softhowse ltda"
oSocial:nomeSoftContato     := "JAIR"
oSocial:telefoneSoft        := "11224455115"
oSocial:codMunicipioSoft    := "1234567"
oSocial:ufSoft              := "SP"
oSocial:emailSoft           := "soft@soft.com.br"

*--- Tabela de Cargos ---*
SELECT FUN  

DO WHILE !EOF()

  *--- Cargos e funcoes ---*
  CCodCbo   := STR(FUN->CBO,6)  //E N 1-1 006 - Código Brasileiro de Ocupação
  cDescCargo:= LEFT(fSeekRef("CODFUN    ",FUN->CODFUN),30)
  cCodCargo := STR(FUN->CODFUN)
  AADD(oSocial:aCargos,{"Cargo" ,cCodCargo ,;  //E C 1-1 030 - Preencher com o código do cargo
                                 cDescCargo,;  //E C 1-1 100 - Preencher com descrição do cargo
                                 CCodCbo   })  //E N 1-1 006 - Código Brasileiro de Ocupação
  
  *--- Tabela de horarios  ---*
  cDescHora:= fSeekRef("CODHORA   ",FUN->CODHORA)
  cCodHora := STR(FUN->CODHORA)
  AADD(oSocial:aHorario,{"Horario" ,cCodHora ,;  //E C 1-1 030 - Preencher com o código do cargo
                                    cDescHora,;  //E C 1-1 100 - Preencher com descrição do cargo
                                   " "       })  //E N 1-1 006 - Código Brasileiro de Ocupação

  SELECT FUN  
  SKIP 

ENDDO 

oSocial:Open()
oSocial:Execute( )
oSocial:Close()   // Finaliza 

RETURN NIL
*------------------------------------------------------------------------------*

[Softwhouse]

Alguém saberia informar se haverá possibilidade de digitar as informações no programa validador, assim como no sped contribuições, ou terá que obrigatoriamente ser gerado um arquivo para ser validado ?

[Luan de Lima]

Olá,

Estou começando a desenvolver o eSocial aqui na empresa onde trabalho.
Tive uma experiência recente desenvolvendo o XML referente ao HomologNet, espero ter conhecimento suficiente para poder ajudar de alguma maneira.
Vou deixar o meu contato para caso eu possa ajudar em algo:
ID do skype: luandelima
E-mail comercial: luan@3soft.com.br

Att,

Luan da Mata

[Edson Silva]

Olá Luan de Lima

Tambem vou começar, nunca fiz nada em xml, trabalho com clipper 5.2, o colega acima o jairfab ja me confirmou que da pra desenvolver em clipper sim o arquivo xml, pois nada mais é que um arquivo txt, só é trabalhoso ficar abrindo e fechando tag <>.

Então cada arquivo que gerar, dentro do arquivo é uma linha unica, pelo que entendi né, como abaixo

<evtInfoEmpregador><versao><infEvento>.........etc.

Grato