infosys2

Sim exatasmente isto que quero fazer mas seria um relatório no fastreport, tem como fazer isto no fastreport , alguem teria um modelo .fr3

Preciso fazer um relatório em fastreport por colunas e gostaria de um exemplo caso alguém possa me ajudar. Ex: Conta mes01 % mes02 % ------------- ---------------- ----- ----------- ---- 00021 12,88 1% 121,00 2% 00022 121.00 9% 121.00 7% a estrutura da tabela : data d 8 conta c 30 valor n15.2 As colunas so definidas conforma o valor do campo data. Ex: 01.01.2021 vai gerar uma coluna com o nome Mes01 no relatorio. Grato.

Olha a menssagem que aparece quando tentei acessar o link de exemplo dele: Olá! Alguns recursos do site requer assinatura. Conheça as vantagens. Consultorias, desenvolvimentos em geral, contate-me

Depois de você digitar no mínimo umas 10 ou 20 senha pode ser que você vai conseguir ter acesso ao fórum do ERIC, o nosso amigo Eric bloqueia tudo no fórum dele ai você não consegue ver nada ate o Curriculum dele ele mandou com senha pra uma empresa o interessante que a empresa estava precisando com urgência do trabalho dele mas quando viu o curriculum com senha desistiu de contratar o cara!

Eu comecei a fazer teste hoje e conseguir gerar um xml, gostaria de trocar, se alguem tiver interesse poderemos trocar informacoes skype jairfab

#include "fivewin.ch" //----------------------------------------------------------------------------// function Main() local oCn, oRs, nRecs oCn := maria_Connect( "localhost", "fwh", "root","senha" ,,, ) oRs := oCn:RowSet( "select * from suporte ") XBROWSER oRs TITLE "`Custbig` FASTEDIT oRs:Close() oCn:Close() return nil Poderia ser desta forma ! //----------------------------------------------------------------------------// #include "fivewin.ch" //----------------------------------------------------------------------------// function Main() local oCn, oRs, oDlg, oFont, oBrw oCn := FW_DemoDB() if oCn == nil return nil endif oRs := oCn:RowSet( "SELECT ID,FIRST,CITY,SALARY FROM customer" ) DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14 DEFINE DIALOG oDlg SIZE 600,500 PIXEL TRUEPIXEL FONT oFont TITLE "MARIADB LOCKED EDIT" @ 60,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg DATASOURCE oRs AUTOCOLS CELL LINES NOBORDER FASTEDIT WITH OBJECT oBrw :nEditTypes := EDIT_GET :CreateFromCode() END @ 10,20 BTNBMP PROMPT "LockedEdit" SIZE 150,40 PIXEL OF oDlg FLAT ACTION LockedEdit( oBrw ) ACTIVATE DIALOG oDlg CENTERED RELEASE FONT oFont return nil //----------------------------------------------------------------------------// static function LockedEdit( oBrw ) local oRsMain, oRsEdit, oRec, nWait, oCn oRsMain := oBrw:oDbf oCn := oRsMain:oCn nWait := oCn:QueryResult( "SHOW SESSION VARIABLES LIKE 'innodb_lock_wait_timeout'" )[ 2 ] oCn:Execute( "SET SESSION innodb_lock_wait_timeout = 1" ) oCn:BeginTransaction() MsgRun( "Reading Record", "WAIT", { || ; oRsEdit := oCn:RowSet( "SELECT * FROM customer WHERE ID = ? FOR UPDATE", { oRsMain:ID } ) ; } ) if oCn:nError == 0 oCn:Execute( "SET SESSION innodb_lock_wait_timeout = " + cValToChar( nWait ) ) oRec := TDataRow():New( oRsEdit ) oRec:Edit() oCn:CommitTransaction() oRsMain:ReSync() oBrw:RefreshCurrent() else oCn:RollBack() oCn:Execute( "SET SESSION innodb_lock_wait_timeout = " + cValToChar( nWait ) ) ? "Record is locked by other user" endif oBrw:SetFocus() return nil

João tem como você mandar o gasfw.exe para mim: jfab2007@yahoo.com.br

Com certeza utilizando o resource fica muito mais fácil, por sinal eu aprendi bastante com o gerado de sistema que você fez, não teria como você liberar uma copia dele para mim? GASFW.EXE Grato

Eu sou da região de São Paulo, não tenho dinheiro mas se precisar de ajuda referente a conhecimento técnico podem contar comigo inclusive podem passar o meu e-email jairfab@gmail.com para a familha do nosso amigo, estarei disponível pra ajudar!

local info:="" // Declara a variavel como locano no inicio do aerquivo mdata :=ctod("30/01/2019") pcnpj :="72898646000149" envio :="..\esocialsyspel\"+pcnpj+"\envio\" enviado :="..\esocialsyspel\"+pcnpj+"\enviado\" select 1 use etmp dbgotop() Do While etmp->( !eof() do case case rtrim(etmp->linha) = "<evento>" info:="" // Reinicia a variavel para um novo arquivo case rtrim(etmp->linha) = "</evento>" // final do arquivo //aqui voce tem opção de gravar o xml incluindo o id no nome do arquivo //desta forma gernado um xml para cada ide ou funcionario diferente //ex: memowrit(cId+"S2200.xml",info) memowrit("S2200.xml",info) // Grava o xml otherwise // Monta a string pra gravar no xml info+=rtrim(etmp->linha)+chr(13)+chr(10) endcase etmp->( dbskip()) Enddo // Fecha o arquivo temporario aqui etmp->( DbCloseArea() )

Ailton é muinto simples, basta fazer esta alteração: info:=" " For V1:=1 To Len(aesocial) info+=aesocial[v1,1] // Monta a string com o conteudo do xml aqui if aesocial[v1,1]="</evento>" memowrit("S2200.xml",info) // Grava o xml else info+=chr(13)+chr(10) // Quebra de linha endif next

Eu fiz e utilizo, a assinatura em c# funciona pra esocial e reinf Jairfab@gmail.com

Conseguir fazer uma DLL em c# que seleciona certificado pelo seria, pelo repositório do windows e pelo nome e senha do arquivo de certificados, ´ja consigo assina, enviar, e consultar o resultado de processamento.

Vale a pena lembrar também que as urls mudaram

Finalmente depois de ter vários problemas com o componente capicom.dll, resolvi fazer o processo de assinatura, envio, consulta do resultado de processamento com uma funcionalidade que desenvolvi em c#, agora não dependo mais de ficar registrando as dll msxml e capicom para fazer o processo de comunicação com web service. Com esta funcionalidade eu chamo um exe onde passo os seguinte parametro : eSocial.exe -tpr consulta -cxml "C:\testar\XML ENVIO\LAYOUT_CONSULTAR.xml" -dxml "C:\testar\XML RETORNO\RESULTADO_CONSULTA.XML" -ccert "C:\testar\meu certificado.pfx" -scert senha E para enviar : eSocial.exe -tpr envio -cxml "C:\testar\XML ENVIO\LAYOUT_ENVIAR.xml" -dxml "C:\testar\XML RETORNO\RESULTADO_ENVIO.XML" -ccert "C:\testar\meu certificado.pfx" -scert senha

Finalmente depois de ter vários problemas com o componente capicom.dll, resolvi fazer o processo de assinatura, envio, consulta do resultado de processamento com uma funcionalidade que desenvolvi em c#, agora não dependo mais de ficar registrando as dll msxml e capicom para fazer o processo de comunicação com web service. Com esta funcionalidade eu chamo um exe onde passo os seguinte parametro : eSocial.exe -tpr consulta -cxml "C:\testar\XML ENVIO\LAYOUT_CONSULTAR.xml" -dxml "C:\testar\XML RETORNO\RESULTADO_CONSULTA.XML" -ccert "C:\testar\meu certificado.pfx" -scert senha E para enviar : eSocial.exe -tpr envio -cxml "C:\testar\XML ENVIO\LAYOUT_ENVIAR.xml" -dxml "C:\testar\XML RETORNO\RESULTADO_ENVIO.XML" -ccert "C:\testar\meu certificado.pfx" -scert senha

Esta parte ate que foi facil já estou na parte de consultar o processamento com base no protocolo de entrega

Já conseguir assinar, enviar e receber o retorno com o numero do protocolo, agora estou precisando consultar o resultado do procesamento e não estou conseguindo, porem eu não tenho nenuma experiencia relacionado a nota fiscal eletronica e ou processo que utiliza web service, gostara de saber onde está o erro nas funcoes em anexo.Se algum colega pouder me dar uma dica, ficarei grato. pconsulta.prg

Já conseguir assinar, enviar e receber o retorno

Econtrei um assinador de xml em c# com o fonte e tudo, porem nunca fiz isto em c#, o exemplo é para assinar e-financeiro

Estou com dificuldade nesta parte, mas no ultimo caso vou recorrer para c#, java, php ou delphi,

A geração dos xml está embutida na arquitetura do banco de dado do eu sistema folha de pagamento e, a partir deste banco de dados eu gravo todas as tabelas com o espelho dos xml haja visto que tem o processo de alteração vai precisar das informações que ja foram enviadas com as informações de alteração, portanto eu adotei o critério de gerar os xls lendo estas tabelas espelho do xml, utilizo banco de dados mysql, você ja conseguiu fazer alguma codificação, passepara o eu e-mail assim vamos trocando figurinhas e que sabem vai gerar um resultado satisfatório.