wanderso

Bom dia galera, Alguém está enfrentando algum problema com o número da rntrc que a ANTT está emitindo com 9 dígitos e no manual do sefaz do mdfe consta como 8 apenas? Não estou conseguindo validar o manifesto o sefaz diz que número é inválido. Liguei no sefaz e confirmaram que não houve mudança para 9 mas várias carteirinhas estão com 9. Valeu!

Olá, MEMOREAD() retorna o conteúdo de um arquivo texto na forma de uma cadeia de caracteres. O arquivo pode ter um tamanho de no máximo 65.535 caracteres (64K)--ou seja, o tamanho máximo de uma cadeia de caracteres. Terá que usar fopen, fread etc...

Muito bom, valeu por compartilhar.

Olá, meio offtopic mas tem alguém que tem programas antigos clipper compilados no xharbour? No windows 10 não funciona mais o click do mouse, nos anteriores funcionava corretamente, tem alguma solução? Obrigado.

Opa, obrigado pela resposta mas o problema era dll antiga do cobrebemx, bastou atualizar que funcionou. Valeu!

Bom dia, Alguém usa cobrebemx para gerar boleto para o itaú carteira 109? Estou com um problema que a linha digitável está sendo gerada com menos caracteres: Pelo site deles estou preenchendo corretamente os dados oCbx:CodigoAgencia := "4319"oCbx:NumeroContaCorrente := "29729-9"oCbx:CodigoCedente := "29729-9"oCbx:InicioNossoNumero := "00000001"oCbx:FimNossoNumero := "99999999" Olhando a linha digitável parece que falta o nosso número nela. Obrigado.

Então, segue minha rotina: TRY oUrl = TUrl():New( 'http://www.averbeporto.com.br/websys/php/conn.php' ) CATCH CurSorArrow() MsgInfo('Erro ao criar a conexão','Erro') RETURN(.F.) END IF !EMPTY( oUrl ) oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout = -1 IF oCli:Open() hQuery["mod"] := "login" hQuery["comp"] := "5" hQuery["user"] := "XXXXX" hQuery["pass"] := "xxxx" oCli:cUserAgent:='Mozilla/3.0 (compatible; Indy Library)' IF !oCli:PostMultiPart(hQuery) CurSorArrow() MsgInfo(oCli:lastErrorMessage,'Erro') ELSE cNFSeResp :=oCli:ReadAll() RespC := oCli:GetCookies() // Captura cookie ENDIF ENDIF ENDIF ENDIF If Alltrim(cNFSeResp) == '{"success":1,"logout":1}' CurSorArrow() oCli:Close() MsgBeep() MsgAlert("Não foi possível conectar ao site de averbação!","Atenção") Return .f. Endif // Faz o upload do xml para averbação oCli:Close() oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout = -1 IF oCli:Open() ocli:SetCookie( respc ) hQuery["comp"] := "5" hQuery["mod"] := "Upload" hQuery["path"] := "eguarda/php/" hQuery["recipient"] := "" EmiCte := Dtoc(oArqCto:DTEMIS) LocXml := Alltrim(oConfCte:P_AUTORI)+Substr(EmiCte,4,2)+Substr(EmiCte,7,4)+"\"+Alltrim(oArqCto:CHAVESEFAZ)+; "-ProcCTe.xml" If ! File(LocXml) CurSorArrow() MsgBeep() MsgAlert("Xml do cte não localizado!","Atenção") oCli:Close() Return .f. Endif ArqAtach := LocXml oCli:cUserAgent:='Mozilla/3.0 (compatible; Indy Library)' oCli:Attach("file",ArqAtach) IF !oCli:PostMultiPart(hQuery) CurSorArrow() MsgInfo(oCli:lastErrorMessage,'Erro') ELSE Respchave:=oCli:ReadAll() ENDIF ENDIF ENDIF If Substr(Alltrim(Respchave),1,12) == '{"success":0' CurSorArrow() oCli:Close() MsgBeep() MsgAlert("Não foi possível fazer o upload do arquivo xml!","Atenção") MsgAlert(Repchave) Return .f. Endif // Busca número do protocolo RespPosi := At("prot",Respchave) RespPosi := Respposi + 7 RespProt := Substr(Respchave,RespPosi,40) oCli:Close() CurSorArrow()

Pessoal qual é a dúvida? Se for para porto eu desenvolvi e está averbando perfeitamente.

É necessário usar Turl para criar a conexão com o site e depois o método post da TIPClientHttp para enviar o arquivo e receber o resultado, no manual de integração que eles forneceram deve mostar os parâmetros.

Olá, tive um problema parecido com um cliente só que era Cte. Entrando pelo site do sefaz já constava como habilitado mas dava esta mesma mensagem sua, no sefaz não resolveu, aí me deram um número que era da equipe do sistema e a atendente disse que já estava liberado mas eu falei que não emitia, aí ele desfez o credenciamento e refez por lá e a partir daí funcionou perfeitamente, o problema está no credenciamento mesmo.

Boa tarde, Alguém tem o .fr3 (fastreport) de Ct-e 2 por folha que possa diponibilizar? Obrigado.

Pelo jeito está criando o xml como sendo o 4.0 e utilizando esquemas da 3.0. Dentro da pasta util da flexdocs tem uma pasta utils e dentro um aplicativo chamado typelibbrowser. Executa ele e vê quais dlls estão registradas, desregistra as que não estão mais usadas para não dar conflito.

Tentei colocar um footer e uma child com onbeforeprint Footer1.Height := Engine.FreeSpace - Child1.Height - 500; imprime o primeiro normal, o segundo tb mas o terceiro saí encavalado no local do 2 na primeira página.

Então, é assim, é como se fosse imprimir 2 pedidos por página, no início tenho um masterdata com os dados do pedido, logo abaixo um detaildata com os itens do pedido que são limitados a 20 por exemplo. Na folha A4 preciso imprimir 2 pedidos distintos a cada página. Obrigado.

Bom dia, Alguém sabe como dividir a folha A4 em 2 e imprimir 2 registros por página? Obrigado.

Também estou na mesma, coloquei para digitar manualmente o resultado da averbação mas integrar seria melhor. Uma dúvida, se o cliente emitiu um manifesto na sexta passada na versão 2.0 e como hoje passa a valer a 3.0 como será finalizado o manifesto emitido já que o veículo ainda não chegou no destino?

Resolvido!

Boa tarde, Alguém está usando a ultima dll para cte da flexdocs, estou fazendo alguns testes e está dando erro no xml no tag versão que está com o conteúdo 3.00. Obrigado.

Legal vou experimentar, valeu!

Entendi, e o que me diz do Basic4Android? Vale o investimento? Estou pensando em parar com o dbf/cdx e ir para o mariadb e gostaria de acessar de fora (android) para consultas, inclusão e alteração de registros. Valeu!

Tudo bem? Está usando qual banco de dados para acessar pelo android e fivewin?

Já tentou usar o :show() da window ou diálogo?

Blz galera? Estou analisando a possibilidade de migrar de DBF/CDX para MariaDB e andei lendo alguns tópicos e algumas dúvidas foram esclarecidas, mas como utilizo Fastreport não sei como proceder. Alguém poderia dar uma dica ou exemplo? Obrigado.

Sim eu tive. Faça assim, pelo painel de controle e opções de internet não funciona. Abre o navegador internet explorer e vai no ícone engrenagem e em opções de internet. Por aí vai abrir. Sabe-se lá pq rs.

Valeu, é uma ideia também. Acabei fazendo uma função específica para isso, não tá 100% pois está lendo caracter a caracter mas está eficiente para o que quero que é retornar o conteúdo de uma ou mais tags dentro de determinado node.