Manoel Marinho

Tem como tirar esses Botões do Preview ?

Alguém por gentileza poderia compilar e testar o programa abaixo? Nos meus testes aqui, no segundo BROWSE os dados não aparecem. #include "FiveWin.ch" #include "Ads.ch" function Main() set date british set century on set epoch to 1960 set deleted on set exclusive off SetHandleCount( 155 ) SET 3DLOOK on set autopen off SET OPTIMIZE on REQUEST DBFCDX REQUEST DBFFPT REQUEST DESCEND REQUEST ADS, ADSKeyno, ADSKeycount, AdsGetRelKeyPos, AdsSetRelKeyPos EXTERN ADSKeyno, ADSKeycount, AdsGetRelKeyPos, AdsSetRelKeyPos rddRegister( "ADS", 1 ) SET FILETYPE to CDX ADSLocking( .T. ) set( _SET_MBLOCKSIZE, 33 ) set( _SET_OPTIMIZE, .t. ) SET SERVER local rddsetdefault( "DBFCDX" ) if !file( "TESTE1.DBF" ) dbcreate( "TESTE1.DBF", { { "CODIGO", "C", 3, 0 }, { "DESCRICAO", "C", 30, 0 } }, "DBFCDX" ) use TESTE1 exclusive NEW for N := 1 to 999 TESTE1->( dbappend() ) TESTE1->CODIGO := strzero( N, 3, 0 ) TESTE1->DESCRICAO := replicate( TESTE1->CODIGO, 10 ) next N else use TESTE1 exclusive NEW endif TESTE1->( dbgotop() ) TESTE1->( browse() ) TESTE1->( dbclosearea() ) rddsetdefault( "ADS" ) if !file( "TESTE2.DBF" ) dbcreate( "TESTE2.DBF", { { "CODIGO", "C", 3, 0 }, { "DESCRICAO", "C", 30, 0 } }, "ADSCDX" ) use TESTE2 exclusive NEW for N := 1 to 999 TESTE2->( dbappend() ) TESTE2->CODIGO := strzero( N, 3, 0 ) TESTE2->DESCRICAO := replicate( TESTE2->CODIGO, 10 ) next N else use TESTE2 exclusive NEW endif TESTE2->( dbgotop() ) TESTE2->( browse() ) TESTE2->( dbclosearea() ) return NIL

Alguém sabe que erro é esse ? Application =========== Path and name: C:\NFEMSINFA\wnfe400s.exe (32 bits) Size: 5,307,904 bytes Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20170312) FiveWin Version: FWHX 16.08 Windows version: 6.2, Build 9200 Time from start: 0 hours 0 mins 8 secs Error occurred at: 20/02/2020, 09:36:17 Error description: Error BASE/1111 Argument error: LEN Args: [ 1] = U Stack Calls =========== Called from: => LEN( 0 ) Called from: VONFE2G_v4.PRG => TVONFE2G:SETVALUEII( 285 ) Called from: VONFE2G_v4.PRG => TVONFE2G:SETVALUE( 269 ) Called from: WNFE400S.PRG => MAIN( 1370 )

Realmente era a DLL desatualizada, obrigado Kapiaba

O problema é que a DLL está gerando a tag <exporta> após a tag <infRespTec> . E a tag <exporta> tem que ficar logo após a tag <infAdic> .

Alguém teve problemas com a geração da tag <exporta> após a tag <infRespTec> ? <infAdic> <infCpl>NAO INCIDENCIA DO ICMS CONFOME ART 8 INCISO II;DO DECRETO 15.730/2016;Valor Aproximado dos Tributos (Lei N. 12.741/2012) = 374,77 (Fonte: IBPT)</infCpl> </infAdic> <infRespTec> <CNPJ>01828105000104</CNPJ> <xContato>MANOEL MARINHO DE ANDRADE</xContato> <email>mspe@mspe.com.br</email> <fone>8134454252</fone> </infRespTec> <exporta> <UFSaidaPais>PE</UFSaidaPais> <xLocExporta>PORTO SUAPE</xLocExporta> </exporta> Retorna a msg de erro: 5505 - Erro: XML não atende a especificação do Schema XML: [nfe_v4.00.xsd] , analise a lista de erros: [1 - Linha:0001 Coluna:3060 Campo:[NIHIL] Conteúdo:[NIHIL] Erro:O elemento 'infNFe' no espaço para nome 'http://www.portalfiscal.inf.br/nfe' apresenta elemento filho 'exporta' no espaço para nome 'http://www.portalfiscal.inf.br/nfe' inválido.

Obrigado a todos, segui as orientações e funciona normal agora.

Error description: (DOS Error 1) BASE/2006 Erro de cria‡Æo: TitRazao.mem Só acontece com o Kaspersky ativo. Se desativar funciona normal. É como se o antivirus alterasse os direitos de gravação do usuário. Alguém já passou por isso ?

Obrigado pelas respostas, vou fazer testes e retorno os resultados.

OBS: nas versões antigas do FiveWin (por exemplo 0911) funciona OK com ADSCDX.

// Essa é a parte do fonte que seta o driver dbfcdx ou adscdx public lAdsServer := .F. if file( "ADS.MEM" ) .or. file( "..\ADS.MEM" ) REQUEST DBFCDX REQUEST DBFFPT REQUEST DESCEND REQUEST ADS EXTERN ADSKeyCount, ADSKeyNo rddRegister( "ADS", 1 ) rddsetdefault( "ADS" ) SET FILETYPE to CDX ADSLocking( .T. ) set( _SET_MBLOCKSIZE, 33 ) set( _SET_OPTIMIZE, .t. ) SET SERVER REMOTE lAdsServer := .T. nTentativas := 0 while !ADSConnect( curdir() ) .and. nTentativas <= 5 msgwait( "Conectando ao servidor de banco de dados...(" + alltrim( str( ++ nTentativas ) ) + ")", "Aguarde...", 1 ) enddo if nTentativas > 5 if !ADSConnect( curdir() ) MsgStop( "Não foi possível conectar ao servidor de banco de dados.", "Atenção" ) __quit() endif endif else REQUEST DBFCDX REQUEST DBFFPT REQUEST DESCEND rddsetdefault( "DBFCDX" ) endif // Essa é a parte do fonte que monta o listbox // Cadastro de Notas de Saida #include "FiveWin.ch" #include "report.ch" #include "inkey.ch" function CADFT1() local oBrw local oLbx define dialog oBrw resource "BrowseMedio" oBrw:lHelpIcon := .F. oBrw:ccaption := ac( "Cadastro de Notas de Saida" ) oBrw:bKeyDown := { | nKey | if( nKey == 13, Editar( .F., oLbx ), .T. ) } redefine listbox oLbx ; fields ; CADFT1->NUMERO, ; CADFT1->SERIE, ; dtoc( CADFT1->DATEMI ), ; CADFT1->CODCLI + " - " + padr( NOMECLI( CADFT1->CODCLI,, CADFT1->UNICLI ), 50 ), ; padr( NOMEFAN( CADFT1->CODCLI ), 30 ), ; CADFT1->CODVEN + " - " + padr( NOMEVEN( CADFT1->CODVEN ), 15 ), ; tran( CADFT1->VLPROD, "@E 99,999,999.99" ), ; tran( CADFT1->VLFRETE, "@E 99,999,999.99" ), ; tran( CADFT1->VALORDESC, "@E 99,999,999.99" ), ; tran( CADFT1->VLNOTA, "@E 99,999,999.99" ), ; padr( NOMEPRA( CADFT1->CODPRA ), 20 ), ; TABELA( CADFT1->TABPRECO ), ; CFOP_ITEM( CADFT1->CODCFO, CADFT1->NUMERO, CADFT1->SERIE ) ; headers ; ac( "N£mero" ), ; ac( "S‚rie" ), ; ac( "Data" ), ; "Razão Social", ; ac( "Fantasia" ), ; ac( "Vendedor" ), ; ac( "Valor Produtos" ), ; ac( "Frete/Despesas" ), ; ac( "Desconto" ), ; ac( "Valor Nota" ), ; ac( "Prazo" ), ; ac( "Tabela" ), ; ac( "CFOP" ) ; on dblclick Editar( .F., oLbx ) ; id 101 of oBrw oLbx:aJustify := { .F., .F., .F., .F., .F., .F., .T., .T., .T., .T., .F., .F., .F. } if lCoresGrid oLbx:nClrPane := { || CorLinha( CADFT1->NUMERO, CADFT1->CANCELADA, CADFT1->EMITIDA, CADFT1->NFE_CHAVE ) } endif activate dialog oBrw on init ; ( oBrw:Move( 0, 0 ), ; oBrw:Maximize(), ; oLbx:nWidth := oBrw:nWidth - 20, ; oLbx:nHeight := oBrw:nHeight - 120, ; Barra( oBrw, oLbx ) ) close databases return NIL

Alguém sabe dizer se a classe LISTBOX do FiveWin/xHarbour mais atual é incompatível com ADS ? Pergunto porque um LISTBOX da mesma tabela DBF aparece normal com DBFCDX e não aparece com ADSCDX. A primeira imagem é com DBFCDX e a segunda com ADSCDX (ambas usando as mesmas tabelas DBF)

Alguém sabe dizer se a classe LISTBOX do FiveWin/xHarbour mais atual é incompatível com ADS ? Pergunto porque um LISTBOX da mesma tabela DBF aparece normal com DBFCDX e não aparece com ADSCDX. A primeira imagem é com DBFCDX e a segunda com ADSCDX (ambas usando as mesmas tabelas DBF)

IMPNFE.EXE é aquele fornecido pelo Daniel do site pctoledo.com.br

Não tem código nenhum, estou apenas executando o IMPNFE.EXE e informando a chave para baixar o XML.

https://uploaddeimagens.com.br/imagens/sem_titulo-jpg--8866

Alguém já viu esse erro ?

Mas se eu conseguir gerar as LIBS com o Harbour vai funcionar com meus programas compilados com o xHarbour Comercial ?

Alguém já compilou o LetoDB com o xHarbour Comercial ? Estou tentando mas mostra os erros abaixo: xHarbour 1.2.3 Intl. (SimpLex) (Build 20170312) Copyright 1999-2017, http://www.xharbour.org http://www.harbour-project.org/ xHarbour 1.2.3 Intl. (SimpLex) (Build 20170312) Copyright 1999-2017, http://www.xharbour.org http://www.harbour-project.org/ Generating object output to 'obj\xhb\errorsys.obj'... xHarbour 1.2.3 Intl. (SimpLex) (Build 20170312) Copyright 1999-2017, http://www.xharbour.org http://www.harbour-project.org/ Generating object output to 'obj\xhb\common.obj'... source\server\leto_win.c(309): warning #2024: Empty input file. source\server\errint.c(102): error #2120: Redeclaration of 'hb_errInternal' previously declared at c:\xhbcom1703\include\hbapierr.h(219): found 'void __cdecl function(unsigned short, const char *, const char *, const char *)' expected 'void __cdecl function(unsigned long, const char *, const char *, const char *)'. source\server\letofunc.c(55): fatal error #1035: Could not find include file "hbapicls.h". source\server\letoacc.c(54): fatal error #1035: Could not find include file "hbapicls.h". xLINK: fatal error: File not found: 'obj\xhb\server.obj'. C:\letodb\include\letocl.h(79): error #1050: Macro redefinition of 'HB_FT_TIME'. C:\letodb\include\letocl.h(97): error #1050: Macro redefinition of 'HB_FT_IMAGE'. source\client\leto1.c(4103): warning #2168: Operands of = have illegal types 'unsigned short __cdecl function(struct _RDDNODE *, struct _HB_ITEM *, struct _HB_ITEM *, struct _HB_ITEM *, unsigned long)' and 'unsigned short __cdecl function(struct _RDDNODE *, unsigned short, unsigned long, struct _HB_ITEM *)'. source\client\leto1.c(4105): warning #2168: Operands of = have illegal types 'unsigned short __cdecl function(struct _RDDNODE *, unsigned short, unsigned long, struct _HB_ITEM *)' and 'unsigned short __cdecl function(struct _AREA *, unsigned short, void *)'. source\client\leto1.c(3721): warning #2135: Static 'letoRename' is not referenced. C:\letodb\include\letocl.h(79): error #1050: Macro redefinition of 'HB_FT_TIME'. C:\letodb\include\letocl.h(97): error #1050: Macro redefinition of 'HB_FT_IMAGE'. fatal error #1061: Can't open input file 'source\common\net.c'. xLIB: fatal error: File not found: 'obj\xhb\leto1.obj'.

Alguém já teve problemas com TwBrowse com Advantage Database Server (ADSCDX) ? Atualizei o FiveWin para a versão 2016/08 e os dados do ListBox somem. Com a mesma versão do FiveWin, porém usando DBFCDX funciona normalmente. Se compilar na versão antiga que eu usava funciona normal também com ADSCDX. Uso xHarbour Comercial, versão 2017/03.

Estou iniciando este projeto agora, posso disponibilizar à medida que for avançando. Se puder disponibilizar (ou vender) a geração dos XML, tenho interesse. manoelmarinho@hotmail.com

Substitui BTNBMP por BUTTONBMP com a opção NOBORDER e os botões ficam melhores, mas ainda assim ficam um pouco borrados.

Testei e funcionou corretamente, acho que são meus bitmaps, vou dar uma olhada aqui, obrigado.

O OK é um recurso definido no RC. Se eu compilar com a versão antiga fica como na tela1. Se compilar na versão nova fica como na tela 2.

Coloquei os links das imagens no post anterior. Verifique a diferença do botão OK nas duas telas.