Jump to content
Fivewin Brasil

Manoel Marinho

Membros
 View Profile  See their activity

  • Posts

    289

  • Joined

  • Last visited

  • Days Won

    1

 Content Type 

Everything posted by Manoel Marinho

  1. Manoel Marinho
    Parece que as telas não estão abrindo, seguem os links: www.mspe.com.br/files/downloads/TELA1.jpg www.mspe.com.br/files/downloads/TELA2.jpg
  2. Manoel Marinho
    Após atualizar o FiveWin para a versão 16/08 e o xHarbour Comercial para a versão 17/03 os botões BTNBMP ficaram pequenos, conforme mostram as imagens.
  3. Manoel Marinho
    *podem
  4. Manoel Marinho
    Recebi na semana passada a versão FWHX16.08 mas estou com dificuldades para compilar, os amigos pode ajudar ?
  5. Manoel Marinho
    Ok, vou abrir novo tópico, obrigado.
  6. Manoel Marinho
    Recebi na semana passada a versão FWHX16.08 mas estou com dificuldades para compilar, os amigos pode ajudar ?
  7. Manoel Marinho
    Peguei seu exemplo e montei a função abaixo que funcionou, obrigado. function TestaStr( mSTR ) if at( "&", mSTR ) == 0 return mSTR endif return left( mSTR, at( "&", mSTR ) - 1 ) + "&&" + right( mSTR, len( mSTR ) - at( "&", mSTR ) + 1 )
  8. Manoel Marinho
    Não, o que acontece é que as strings de tem & aparecem nos campos oSay sem &. Exemplo: D&D aparece DD
  9. Manoel Marinho
    Infelizmente ainda não resolveu, segue a tela após a alteração do recurso:
  10. Manoel Marinho
    NFENTEDIT DIALOG 218, 30, 279, 281 STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME FONT 8, "MS Sans Serif" { EDITTEXT 101, 65, 12, 55, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP EDITTEXT 102, 65, 27, 42, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP EDITTEXT 103, 110, 27, 16, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP EDITTEXT 105, 65, 41, 42, 12 EDITTEXT 106, 65, 55, 42, 12 COMBOBOX 107, 65, 69, 204, 110, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP COMBOBOX 108, 65, 84, 148, 142, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP COMBOBOX 104, 238, 84, 31, 46, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP EDITTEXT 109, 65, 99, 22, 12 EDITTEXT 110, 65, 113, 31, 12 COMBOBOX 111, 65, 127, 58, 54, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP EDITTEXT 112, 65, 142, 24, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 122, 169, 142, 53, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 121, 245, 142, 24, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 113, 65, 156, 53, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 129, 216, 156, 53, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 114, 65, 170, 53, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 117, 216, 170, 53, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 124, 65, 184, 53, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 125, 216, 184, 53, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 115, 65, 198, 53, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 116, 65, 212, 53, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 120, 65, 226, 69, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP EDITTEXT 118, 216, 198, 53, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 119, 216, 212, 53, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 123, 216, 226, 53, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 150, 65, 240, 204, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP PUSHBUTTON "Confirmar", 201, 2, 264, 50, 14 PUSHBUTTON "&Cancelar", 202, 57, 264, 50, 14 PUSHBUTTON "Novo Fornec", 208, 120, 264, 50, 14 PUSHBUTTON "Dados do &IPI", 207, 173, 264, 50, 14 PUSHBUTTON "Itens da &Nota", 206, 226, 264, 50, 14 RTEXT "Número/Série:", -1, 6, 29, 57, 8 RTEXT "Data Entrada:", -1, 6, 43, 57, 8 RTEXT "Especificação:", -1, 6, 71, 57, 8 RTEXT "Modelo:", -1, 6, 86, 57, 8 RTEXT "CFOP:", -1, 6, 101, 57, 8 RTEXT "Código Contábil:", -1, 6, 115, 57, 8 PUSHBUTTON "?", 204, 100, 99, 13, 12, NOT WS_TABSTOP PUSHBUTTON "?", 205, 100, 113, 13, 12, NOT WS_TABSTOP RTEXT "Data Emissão:", -1, 6, 57, 57, 8 RTEXT "Tributação:", -1, 6, 129, 57, 8 RTEXT "Alíquota:", -1, 6, 144, 57, 8 RTEXT "Valor Contábil:", -1, 6, 158, 57, 8 RTEXT "Base ICMS:", -1, 6, 172, 57, 8 RTEXT "Valor ICMS:", -1, 157, 172, 57, 8 RTEXT "ICMS Fonte:", -1, 157, 200, 57, 8 RTEXT "ICMS Entrada:", -1, 157, 214, 57, 8 RTEXT "Valor Isento:", -1, 6, 200, 57, 8 RTEXT "Valor Outros:", -1, 6, 214, 57, 8 RTEXT "Observação:", -1, 6, 228, 57, 8 LTEXT "", 302, 117, 99, 152, 12, WS_BORDER | WS_GROUP LTEXT "", 303, 117, 113, 152, 12, WS_BORDER | WS_GROUP RTEXT "Base Pis/Cofins:", -1, 157, 158, 57, 8 RTEXT "Fornecedor:", -1, 6, 14, 57, 8 PUSHBUTTON "?", 203, 122, 12, 13, 12, NOT WS_TABSTOP LTEXT "", 301, 137, 12, 132, 12, SS_LEFTNOWORDWRAP | WS_BORDER | WS_GROUP RTEXT "%:", -1, 232, 144, 11, 8 RTEXT "Chave NFe:", -1, 24, 242, 39, 8 RTEXT "Frete:", -1, 216, 86, 20, 8 RTEXT "Crédito Presumido:", -1, 102, 144, 64, 8 RTEXT "Frete/Despesas:", -1, 157, 228, 57, 8 RTEXT "Base ICMS ST:", -1, 6, 186, 57, 8 RTEXT "Valor ICMS ST:", -1, 157, 186, 57, 8 CONTROL "", -1, "static", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 2, 4, 274, 256 }
  11. Manoel Marinho
    No arquivo de recursos o campo está assim: LTEXT "", 301, 137, 12, 132, 12, SS_LEFTNOWORDWRAP | WS_BORDER | WS_GROUP OemToAnsi() não resolveu.
  12. Manoel Marinho
    Alguém sabe o que é isso? Não mostra o caractere & num campo oSay. Vejam a imagem abaixo:
  13. Manoel Marinho
    Realmente tinha um parâmetro errado, consegui assim: SET DATE FORMAT TO "YYYY-MM-DD" dhEmi := ctot( dtoc( date() ) + "T" + left( time(), 8 ) ) Obrigado pelas respostas.
  14. Manoel Marinho
    Essa é a linha 176: local xml_identificador := oCTe:identificador( cUF, cCT, CFOP, natOp, forPag, mod, serie, nCT, dhEmi, tpImp, tpEmis, cDV, tpAmb, tpCTe, procEmi, verProc, refCTe_Opc, cMunEnv, xMunEnv, UFEnv, modal, tpServ, cMunIni, xMunIni, UFIni, cMunFim, xMunFim, UFFim, retira, xDetRetira, tomador, dhCont_Opc, xJust_Opc ) O suporte da Flexdocs alega que estou passando parâmetros errados para a DLL.
  15. Manoel Marinho
    static function gera_xml_identificador() local cUF := val( NumEstado( CADEMP->ESTADO ) ) local cCT := _cCT local CFOP := CTRC->CFOP local natOp := "TRANSPORTE RODOVIARIO DE CARGAS" local forPag := 0 local mod := 57 local serie := val( CTRC->SERIE ) local nCT := val( CTRC->NUMERO ) local dhEmi := CTOT( DataHora( date() ) ) local tpImp := 1 local tpEmis := 1 local cDV := _cDV local tpAmb := nAmbiente local tpCTe := 0 // 0 - CT-e Normal; 1 - CT-e de Complemento de Valores; 2 - CT-e de Anulação de Valores; 3 - CT-e Substituto. local procEmi := 0 local verProc := "2.0.16" local refCTe_Opc := "" local cMunEnv := alltrim( CADEMP->CODIBGE ) local xMunEnv := alltrim( CADEMP->CIDADE ) local UFEnv := alltrim( CADEMP->ESTADO ) local modal := "01" local tpServ := 0 local cMunIni := alltrim( CADEMP->CODIBGE ) local xMunIni := alltrim( CADEMP->CIDADE ) local UFIni := alltrim( CADEMP->ESTADO ) local cMunFim := if( empty( CADCLI->CODIBGE ), alltrim( CADEMP->CODIBGE ), alltrim( CADCLI->CODIBGE ) ) local xMunFim := alltrim( CADCLI->CIDADE ) local UFFim := alltrim( CADCLI->ESTADO ) local retira := 1 local xDetRetira := "" local tomador := gera_xml_tomador() local dhCont_Opc := CTOT( "" ) local xJust_Opc := "" local xml_identificador := oCTe:identificador( cUF, cCT, CFOP, natOp, forPag, mod, serie, nCT, dhEmi, tpImp, tpEmis, cDV, tpAmb, tpCTe, procEmi, verProc, refCTe_Opc, cMunEnv, xMunEnv, UFEnv, modal, tpServ, cMunIni, xMunIni, UFIni, cMunFim, xMunFim, UFFim, retira, xDetRetira, tomador, dhCont_Opc, xJust_Opc ) return xml_identificador
  16. Manoel Marinho
    Application =========== Path and name: C:\FONTES\WCTRC\WCTRC.EXE (32 bits) Size: 3,009,024 bytes Time from start: 0 hours 0 mins 14 secs Error occurred at: 19/08/2016, 09:03:04 Error description: Error CTe_Util.Util/3 DISP_E_MEMBERNOTFOUND: IDENTIFICADOR Args: [ 1] = N 26 [ 2] = N 52617971 [ 3] = C 5353 [ 4] = C TRANSPORTE RODOVIARIO DE CARGAS [ 5] = N 0 [ 6] = N 57 [ 7] = N 0 [ 8] = N 23 [ 9] = C 2016-08-19T09:03:04 [ 10] = N 1 [ 11] = N 1 [ 12] = N 3 [ 13] = N 1 [ 14] = N 0 [ 15] = N 0 [ 16] = C 2.0.16 [ 17] = C [ 18] = C 2611606 [ 19] = C RECIFE [ 20] = C PE [ 21] = C 01 [ 22] = N 0 [ 23] = C 2611606 [ 24] = C RECIFE [ 25] = C PE [ 26] = C 2611606 [ 27] = C RECIFE [ 28] = C PE [ 29] = N 1 [ 30] = C [ 31] = C <toma03><toma>3</toma></toma03> [ 32] = C [ 33] = C Stack Calls =========== Called from: C:\xHarbour\source\rtl\win32ole.prg => TOLEAUTO:IDENTIFICADOR(0) Called from: wgeracte.prg => GERA_XML_IDENTIFICADOR(176) Called from: wgeracte.prg => GERARCTE(39) Called from: WCADCTRC.PRG => (b)BARRA(120) Called from: Source\Classes\BTNBMP.PRG => TBTNBMP:CLICK(334) Called from: Source\Classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(509) Called from: => TWINDOW:HANDLEEVENT(0) Called from: Source\Classes\control.prg => TCONTROL:HANDLEEVENT(1362) Called from: Source\Classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(876) Called from: Source\Classes\window.prg => _FWH(3164) Called from: => DIALOGBOX(0) Called from: Source\Classes\dialog.prg => TDIALOG:ACTIVATE(270) Called from: WCADCTRC.PRG => CADCTRC(84) Called from: WCTRC.PRG => (b)MAIN(330) Called from: Source\Classes\BTNBMP.PRG => TBTNBMP:CLICK(334) Called from: Source\Classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(509) Called from: => TWINDOW:HANDLEEVENT(0) Called from: Source\Classes\control.prg => TCONTROL:HANDLEEVENT(1362) Called from: Source\Classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(876) Called from: Source\Classes\window.prg => _FWH(3164) Called from: => WINRUN(0) Called from: Source\Classes\window.prg => TWINDOW:ACTIVATE(883) Called from: WCTRC.PRG => MAIN(367) System ====== CPU type: 2933 Mhz Hardware memory: 2048 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6633) Windows version: 6.1, Build 7601 Service Pack 1 Windows total applications running: 49 1 2 Iniciar 3 MSCTFIME UI 4 Default IME 5 Lista de Atalhos 6 Manoel 7 Menu Iniciar 8 CiceroUIWndFrame 9 Tecle Enter para abrir o menu do Dropbox 10 Alternância de tarefas 11 Network Flyout 12 TF_FloatingLangBar_WndTitle 13 Cadastro de CTRC 14 Sistema de Transportes - OXI-LINE COM. E REPRES. LTDA. 15 C:\Windows\system32\cmd.exe - x 16 Identificação do CT-e <sup><font size= "1" color="#FF0000">[27-08-13]</font></sup> - Guia de Uso do CTe_Util - Google Chrome 17 GDI+ Window 18 xHarbour Language Reference Guide (Version 1.1) 19 MCI command handling window 20 .NET-BroadcastEventWindow.4.0.0.0.2c8a79a.0 21 MediaContextNotificationWindow 22 SystemResourceNotifyWindow 23 DropboxShellHook 24 DropboxSystemStatusMonitorShellHook 25 theAwtToolkitWindow 26 Degoo 27 TrayIconWindow 28 SWT_Window_Degoo 29 Piriform CCleaner 30 {2D905E07-FC38-4b89-83E1-931D3630937F} 31 HiddenFaxWindow 32 BluetoothNotificationAreaIconWindowClass 33 MS_WebcheckMonitor 34 Media Center SSO 35 Medidor de Bateria 36 DDE Server Window 37 Computadores & contatos 38 TeamViewer 39 DWM Notification Window 40 TVMainThreadCall 41 DataCardMonitor 42 Cleaning report 43 Daily Health Check 44 TaskEng - Processo de Mecanismo do Agendador de Tarefas 45 Task Host Window 46 Realtek HD Audio Background Process for Vista 47 scpbradguard 48 Kaspersky Total Security 49 Program Manager Variables in use ================ Procedure Type Value ========================== TOLEAUTO:IDENTIFICADOR Param 1: N 26 Param 2: N 52617971 Param 3: C "5353" Param 4: C "TRANSPORTE RODOVIARIO DE CARGAS" Param 5: N 0 Param 6: N 57 Param 7: N 0 Param 8: N 23 Param 9: C "2016-08-19T09:03:04" Param 10: N 1 Param 11: N 1 Param 12: N 3 Param 13: N 1 Param 14: N 0 Param 15: N 0 Param 16: C "2.0.16" Param 17: C "" Param 18: C "2611606" Param 19: C "RECIFE" Param 20: C "PE" Param 21: C "01" Param 22: N 0 Param 23: C "2611606" Param 24: C "RECIFE" Param 25: C "PE" Param 26: C "2611606" Param 27: C "RECIFE" Param 28: C "PE" Param 29: N 1 Param 30: C "" Param 31: C "<toma03><toma>3</toma></toma03>" Param 32: C "" Param 33: C "" Local 1: U Local 2: C "CTe_Util.Util" GERA_XML_IDENTIFICADOR Local 1: C "09:03:04" Local 2: C "AM" Local 3: N 26 Local 4: N 52617971 Local 5: C "5353" Local 6: C "TRANSPORTE RODOVIARIO DE CARGAS" Local 7: N 0 Local 8: N 57 Local 9: N 0 Local 10: N 23 Local 11: C "2016-08-19T09:03:04" Local 12: N 1 Local 13: N 1 Local 14: N 3 Local 15: N 1 Local 16: N 0 Local 17: N 0 Local 18: C "2.0.16" Local 19: C "" Local 20: C "2611606" Local 21: C "RECIFE" Local 22: C "PE" Local 23: C "01" Local 24: N 0 Local 25: C "2611606" Local 26: C "RECIFE" Local 27: C "PE" Local 28: C "2611606" Local 29: C "RECIFE" Local 30: C "PE" Local 31: N 1 Local 32: C "" Local 33: C "<toma03><toma>3</toma></toma03>" Local 34: C "" Local 35: C "" Local 36: U GERARCTE Local 1: U (b)BARRA Param 1: O Class: TBTNBMP TBTNBMP:CLICK Local 1: O Class: TBTNBMP TBTNBMP:LBUTTONUP Param 1: N 14 Param 2: N 22 Param 3: O Class: TBTNBMP Local 1: U Local 2: L .T. TWINDOW:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 917526 TCONTROL:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 917526 Local 1: O Class: TBTNBMP TBTNBMP:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 917526 Local 1: O Class: TBTNBMP _FWH Param 1: N 917526 Param 2: N 514 Param 3: N 0 Param 4: N 917526 Param 5: N 23 Local 1: O Class: TBTNBMP DIALOGBOX Param 1: N 4194304 Param 2: C "BrowseGrande" Param 3: N 329124 Param 4: O Class: TDIALOG TDIALOG:ACTIVATE Param 1: U Param 2: U Param 3: U Param 4: L .T. Param 5: U Param 6: L .T. Param 7: B {|| ... } Param 8: U Param 9: U Param 10: L .T. Local 1: O Class: TDIALOG Local 2: N 329124 Local 3: U Local 4: U Local 5: U Local 6: O Class: TDIALOG CADCTRC Local 1: O Class: TDIALOG Local 2: O Class: TWBROWSE (b)MAIN Param 1: O Class: TBTNBMP TBTNBMP:CLICK Local 1: O Class: TBTNBMP TBTNBMP:LBUTTONUP Param 1: N 16 Param 2: N 50 Param 3: O Class: TBTNBMP Local 1: U Local 2: L .T. TWINDOW:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 1048626 TCONTROL:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 1048626 Local 1: O Class: TBTNBMP TBTNBMP:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 1048626 Local 1: O Class: TBTNBMP _FWH Param 1: N 1048626 Param 2: N 514 Param 3: N 0 Param 4: N 1048626 Param 5: N 4 Local 1: O Class: TBTNBMP WINRUN Param 1: N 329124 TWINDOW:ACTIVATE Param 1: C "MAXIMIZED" Param 2: U Param 3: U Param 4: U Param 5: U Param 6: U Param 7: U Param 8: B {|| ... } Param 9: U Param 10: U Param 11: U Param 12: U Param 13: U Param 14: U Param 15: U Param 16: U Param 17: B {|| ... } Param 18: U Param 19: U Local 1: O Class: TWINDOW Local 2: U Local 3: U MAIN Local 1: C "" Linked RDDs =========== DBF DBFFPT DBFCDX DBFNTX DBFBLOB ADS ADT ADSCDX ADSNTX DataBases in use ================ 1: CADCLI RddName: ADSCDX ============================== RecNo RecCount BOF EOF 502 512 .F. .F. Indexes in use TagName => CODIGO CADCLI1 upper(Nome) CADCLI2 CPF CADCLI3 CGC CADCLI4 upper(FANTASIA) CADCLI5 INSC CADCLI6 upper(FANTASIA)+CODTIPO CADCLI7 UPPER(OPERADOR)+upper(FANTASIA) CADCLI8 UPPER(OPERADORB)+upper(FANTASIA) CADCLI9 UPPER(OPERADORQ)+upper(FANTASIA) CADCLI10 Relations in use 2: CADTTR RddName: ADSCDX ============================== RecNo RecCount BOF EOF 1 18518 .F. .F. Indexes in use TagName => NumTit + dtos( DatVen ) + dtos( DatCADTTR01 NumTit + dtos( DatEmi) CADTTR02 CodCli + dtos( DatVen ) + NumTit CADTTR03 CodVen + dtos( DatVen ) + NumTit CADTTR04 CodPor + dtos( DatVen ) + NumTit CADTTR05 TipDoc + dtos( DatVen ) + NumTit CADTTR06 dtos( DatVen ) + NumTit CADTTR07 TipRec + dtos( DatVen ) + NumTit CADTTR08 dtos( DatEmi ) + NumTit CADTTR09 CodCli + dtos( DatEMI ) + NumTit CADTTR10 CodVen + dtos( DatEMI ) + NumTit CADTTR11 CodPor + dtos( DatEMI ) + NumTit CADTTR12 TipDoc + dtos( DatEMI ) + NumTit CADTTR13 TipRec + dtos( DatEMI ) + NumTit CADTTR14 NUMFAT + upper( SERFAT ) + CODCLI CADTTR15 Relations in use 3: CADVEN RddName: ADSCDX ============================== RecNo RecCount BOF EOF 2 2 .F. .F. Indexes in use TagName => CODIGO CADVEN1 upper(Nome) CADVEN2 Regiao + Codigo CADVEN3 Relations in use 4: CADPOR RddName: ADSCDX ============================== RecNo RecCount BOF EOF 1 2 .F. .F. Indexes in use TagName => CODIGO CADPOR1 upper( NOME) CADPOR2 Relations in use 5: CADDOC RddName: ADSCDX ============================== RecNo RecCount BOF EOF 1 14 .F. .F. Indexes in use TagName => CODIGO CADDOC1 upper(DESCRICAO) CADDOC2 Relations in use 6: CADREC RddName: ADSCDX ============================== RecNo RecCount BOF EOF 1 12 .F. .F. Indexes in use TagName => CODIGO CADREC1 upper(DESCRICAO) CADREC2 Relations in use 7: TMIBGE RddName: ADSCDX ============================== RecNo RecCount BOF EOF 1 5524 .F. .F. Indexes in use TagName => upper(CIDADE) + upper(ESTADO) TMIBGE1 upper(ESTADO) + upper(CIDADE) TMIBGE2 CODIBGE TMIBGE3 Relations in use 8: CTRCROM RddName: ADSCDX ============================== RecNo RecCount BOF EOF 3 6 .F. .F. Indexes in use TagName => NUMCTRC + NUMNOTA CTRCROM1 Relations in use 9: CTRCNFE RddName: ADSCDX ============================== RecNo RecCount BOF EOF 1 3 .F. .F. Indexes in use TagName => NUMCTRC + SERCTRC + NUMNOTA + SERNOCTRCNFE1 Relations in use 10: CADCFO2 RddName: ADSCDX ============================== RecNo RecCount BOF EOF 1 460 .F. .F. Indexes in use TagName => CODIGO CADCFO1 Relations in use 11: CADEMP RddName: ADSCDX ============================== RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use 12: PROP RddName: ADSCDX ============================== RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName => PR_CPF PROP1 upper(PR_NOME) PROP2 Relations in use 13: MOTO RddName: ADSCDX ============================== RecNo RecCount BOF EOF 1 2 .F. .F. Indexes in use TagName => MO_CPF MOTO1 upper(MO_NOME) MOTO2 Relations in use 14: CAMI RddName: ADSCDX ============================== RecNo RecCount BOF EOF 1 4 .F. .F. Indexes in use TagName => CA_PLA CAMI1 Relations in use 15: CARTA RddName: ADSCDX ============================== RecNo RecCount BOF EOF 1 7 .F. .F. Indexes in use TagName => NUMERO CARTA1 Relations in use 16: TMP RddName: ADSCDX ============================== RecNo RecCount BOF EOF 1 0 .T. .T. Indexes in use TagName Relations in use 17: => CTRC RddName: ADSCDX ============================== RecNo RecCount BOF EOF 10 10 .F. .F. Indexes in use TagName => NUMERO + SERIE CTRC1 ME_NOT CTRC2 Relations in use Classes in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TWINDOW 6 TBRUSH 7 TCONTROL 8 TWBROWSE 9 TBITMAP 10 TFOLDER 11 TTABS 12 TDIALOG 13 TMETER 14 TMETAFILE 15 TCOMBOBOX 16 TFONT 17 TICON 18 TCURSOR 19 TMENU 20 TMENUITEM 21 TMSGBAR 22 TRECT 23 TMSGITEM 24 TTIMER 25 TBAR 26 TBTNBMP 27 TGET 28 GET 29 TCLIPGET 30 TURL 31 TIPCLIENT 32 TIPCLIENTFTP 33 TSCROLLBAR 34 TOLEAUTO 35 TREG32 Memory Analysis =============== 211 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes
  17. Manoel Marinho
    Consegui, só funcionou quando coloquei BEMAFI32.DLL e o BEMAFI32.INI na pasta c:\windows\syswow64 Também em BEMAFI32.INI tem que colocar PORTA=USB quando não for usar com o cabo serial Além disso, tem que configurar uma porta serial virtual (BematechVirtualSerialPort_x64_v3.0.0.3.exe) Obrigado a todos.
  18. Manoel Marinho
    Já tentei também com o driver de 32 bits e não funciona.
  19. Manoel Marinho
    Alguém já teve problemas com BEMATECH FISCAL MP-2100 + WINDOWS 8.1 64 BITS ? Não consigo conexão nem pela USB nem pela SERIAL. No WINDOWS 8.1 32 bits funciona normal.
  20. Manoel Marinho
    O parâmetro dhEmi estava errado, eu estava passando no formato AAAA-MM-DDTHH:MM:SS mas tem que passar AAAA-MM-DD HH:MM:SS (com espaço no lugar do T).
  21. Manoel Marinho
    Não sei, vou colocar uns alerts para me mostrar os parâmetros antes de chamar o método. Por enquanto, muito obrigado pelas respostas.
  22. Manoel Marinho
    ide := objMDFeUtil:ide(ide_cUF, ide_tpAmb, ide_tpEmit, ide_mod, ide_serie, ide_nMDF, ide_cMDF, ide_cDV, ide_modal, ide_dhEmi, ide_tpEmis, ide_procEmi, ide_verProc, ide_UFIni, ide_UFFim, ide_infMunCarrega_Grupo, ide_infPercurso_Grupo_Opc)
  23. Manoel Marinho
    Acertou em cheio !!! Agora compilou, está dando erro na execução: Application =========== Path and name: C:\FONTES\WFAT\WFAT.EXE (32 bits) Size: 5,156,864 bytes Time from start: 0 hours 0 mins 12 secs Error occurred at: 06/03/2015, 13:58:16 Error description: Error MDFe_Util.Util/3 DISP_E_MEMBERNOTFOUND: IDE Args: [ 1] = N 35 [ 2] = N 2 [ 3] = N 1 [ 4] = N 58 [ 5] = N 0 [ 6] = N 111111111 [ 7] = N 0 [ 8] = N 0 [ 9] = C 1 [ 10] = C 2015-03-06T13:58:09-3 [ 11] = N 1 [ 12] = N 0 [ 13] = C 1.1 [ 14] = C SP [ 15] = C SP [ 16] = C <infMunCarrega><cMunCarrega>3550308</cMunCarrega><xMunCarrega>Sao Paulo</xMunCarrega></infMunCarrega> [ 17] = C Stack Calls =========== Called from: C:\xHarbour\source\rtl\win32ole.prg => TOLEAUTO:IDE(0) Called from: WMDFE.PRG => MDFE_IDE(90) Called from: WMDFE.PRG => MDFE(9) Called from: WFAT.PRG => MAIN(1831) System ====== CPU type: Intel® Core2 Duo CPU E7500 @ 2.93GHz 2933 Mhz Hardware memory: 2048 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6633) Windows version: 6.1, Build 7601 Service Pack 1 Windows total applications running: 0 Variables in use ================ Procedure Type Value ========================== TOLEAUTO:IDE Param 1: N 35 Param 2: N 2 Param 3: N 1 Param 4: N 58 Param 5: N 0 Param 6: N 111111111 Param 7: N 0 Param 8: N 0 Param 9: C "1" Param 10: C "2015-03-06T13:58:09-3" Param 11: N 1 Param 12: N 0 Param 13: C "1.1" Param 14: C "SP" Param 15: C "SP" Param 16: C "<infMunCarrega><cMunCarrega>3550308</cMunCarrega><xMunCarrega>Sao Paulo</xMunCarrega></infMunCarrega>" Param 17: C "" Local 1: U Local 2: C "MDFe_Util.Util" MDFE_IDE Local 1: O Class: TOLEAUTO Local 2: U MDFE MAIN Local 1: C "" Linked RDDs =========== DBF DBFFPT DBFCDX DBFNTX DBFBLOB ADS ADT ADSCDX ADSNTX DataBases in use ================ Classes in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TWINDOW 6 TBRUSH 7 TCONTROL 8 TWBROWSE 9 TBITMAP 10 TFOLDER 11 TTABS 12 TDIALOG 13 TMETER 14 TMETAFILE 15 TCOMBOBOX 16 TFONT 17 TICON 18 TCURSOR 19 TMENU 20 TMENUITEM 21 TTIMER 22 TMSGBAR 23 TRECT 24 TMSGITEM 25 TBAR 26 TBTNBMP 27 TOLEAUTO 28 TREG32 29 TSTRUCT Memory Analysis =============== 218 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes
  24. Manoel Marinho
    Eu já enviei um ticket e eles responderam que não podem ajudar porque não é erro na DLL e sim na compilação do meu aplicativo.
  25. Manoel Marinho
    Estou tentando compilar um PRG (abaixo) que utiliza a DLL MDFE_UTIL da FLEXDOCS. No arquivo WMDFE.c gerado pelo xHarbour, aparece a instru玢o #include "OBJMDFEUTIL.xns", que gera o erro de compila玢o abaixo: obj\WMDFE.c(19): fatal error: Could not find include file "OBJMDFEUTIL.xns". Alguém sabe o que é isso ? // MDF-e #include "FiveWin.ch" #include "hbxml.ch" #include "FileIO.ch" function MDFe() MDFe_Ide() return NIL function MDFe_Ide() local objMDFeUtil TRY objMDFeUtil := GetActiveObject("MDFe_Util.Util") CATCH TRY objMDFeUtil := CreateObject("MDFe_Util.Util") CATCH msgstop("Erro iniciando objeto MDFe_Util.Util","Atenção") return NIL END END ide_cUF := 35 // código da UF - tabela do IBGE: 35 - SP, 43 - RS, etc ide_tpAmb := 2 // informar tipo de ambiente: 1 - Produção 2 - Homologação. ide_tpEmit := 1 // informar tipo do emitente: 1 - Prestador de serviço de transporte 2 - Transporte de Carga Própria. [20-03-13] // OBS: Deve ser preenchido com 2 por Emitentes de NF-e e pelas Transportadoras quando estiverem fazendo transporte de carga própria NT 2013/001 ide_mod := 58 // informar o código do Modelo do Documento Fiscal, código 58 para a MDF-e. ide_serie := 0 // informar a série do Documento Fiscal, informar 0 (zero) para série única. ide_nMDF := 111111111 // informar o Número do MDF-e." ide_cMDF := 12345678 // informar o código numérico que compõe a Chave de Acesso. Número aleatório gerado pelo emitente para cada MDF-e para evitar acessos indevidos ao documento. ide_cDV := 1 // informar o Dígito Verificador da chave de acesso do MDF-e. ide_modal := "1" // informar o Modal:" // 1 - Rodoviário; // 2 - Aéreo; // 3 - Aquaviário; // 4 - Ferroviário. ide_dhEmi := Transf(DtoS(Date()),"@R 9999-99-99")+"T"+Time()+alltrim(str(TimeZone())) // informar a data e hora de emissão do Documento Fiscal.Utilizar o tipo data/hora do ambiente programação utilizado. // VB: identificador_dhEmi := #10/8/2011 5:22:45 PM# / identificador_dhEmi := Now ide_tpEmis := 1 // Forma de emissão do MDF-e: // 1 - Normal; // 2 - Contingência. ide_procEmi := 0 // informar o código de identificação do processo de emissão do MDF-e: // 0 - emissão de MDF-e com aplicativo do contribuinte; // 3 - emissão MDF-e pelo contribuinte com aplicativo fornecido pelo Fisco. ide_verProc := "1.1" // informar a versão do processo de emissão do MDF-e utilizado (aplicativo emissor de MDF-e). ide_UFIni := "SP" // informar a sigla da UF de Carregamento. Informar //EX// para operações com o exterior. ide_UFFim := "SP" // informar a sigla da UF de Desarregamento. Informar //EX// para operações com o exterior. ide_infMunCarrega_Grupo := "<infMunCarrega><cMunCarrega>3550308</cMunCarrega><xMunCarrega>Sao Paulo</xMunCarrega></infMunCarrega>" // grupo XML das informações dos municípios de carregamento, informar os municípios da UF de início do percurso onde houver carregamento da carga. ide_infPercurso_Grupo_Opc := "" //grupo XML das informações das UF do percurso, serve para informar as UF intermediárias que são percorridas pelo veículo no percurso, não é necessário //informar quando não houverem UF intermediárias no percurso. // // gera a chave de acesso da MDF-e // // utilizar a função criaChaveDFe para gerar a chave de acesso, código da MDF-e e DV // CNPJ := "00000000000191" cUF := Trim(Str(ide_cUF)) //ano := Format(ide_dhEmi, "YY") ano := right(dtoc(date()),2) //mes := Format(ide_dhEmi, "mm") mes := strzero(month(date()),2,0) modelo := AllTrim(Str(ide_mod)) serie := AllTrim(Str(ide_serie)) numero := AllTrim(Str(ide_nMDF)) tpemis := AllTrim(Str(ide_tpEmis)) msgResultado := "" codigoseguranca := "segredo" // informar uma expressão para garantir o sigilo da forma de cálculo do cDFe cDFe := "" cDV := "" chave := "" resultado := 0 resultado := objMDFeUtil.CriaChaveDFe(cUF, ano, mes, CNPJ, modelo, serie, numero, tpemis, codigoseguranca, msgResultado, cDFe, cDV, chave) If resultado <> 5601 MsgStop( "Ocorreu um erro ao gerar a chave de acesso " + msgResultado, "Resultado" ) else alert( resultado ) EndIf ide_cDV := Val(cDV) // utilizar o que foi gerado no criachaveDFe ide_cMDF := Val(cDFe) // utilizar o que foi gerado no criachaveDFe ide := objMDFeUtil.ide(ide_cUF, ide_tpAmb, ide_tpEmit, ide_mod, ide_serie, ide_nMDF, ide_cMDF, ide_cDV, ide_modal, ide_dhEmi, ide_tpEmis, ide_procEmi, ide_verProc, ide_UFIni, ide_UFFim, ide_infMunCarrega_Grupo, ide_infPercurso_Grupo_Opc) MsgInfo( ide, "Informação" ) return NIL
×
×
  • Create New...