devairlp

Qual tipo de botão vc usa pra acionar a saida da Dialog, pois tive um problema parecido, que sempre duplicava o comando em algumas partes do prog., qdo eu usava BUTTONBMP, foi dificil descobrir que era isso que me causava o erro, mudei para BTNBMP e no pra mim resolveu.

Sim, e a classe TIPClientHttp não aceita https, que eu utilizava, preciso fazer por API, pois o cliente emite uns 40, 50 CTe por vez e manualmente fica mto demorado.

Desta forma funciona manualmente, vc transmite o arquivo e tem que lançar o nro da averbação manualmente em cada CTe, ou baixar um aquivo txt csv, e ler este arquivo. Mais quero continuar a fazer por API.

Alguém já fez a nova averbação MDFe da porto seguro, pois pela TIPClientHttp, não aceita https ( conexão segura) e a Porto mudou o protocolo.

testei com o bco santander, e sempre da erro, não funciona.

Vc tem que pegar item por item do produto. ::GetValueNode("det/prod/cprod",PICT_STRING,.t.,,.t.) ::GetValueNode("det/prod/ncm",PICT_STRING,.t.,,.t.) ::GetValueNode("det/prod/cfop",PICT_STRING,.t.,,.t.) ::GetValueNode("det/prod/ucom",PICT_STRING,.t.,,.t.)

Fiz isso, comprei na china, transformei impressora USB em rede, e os problemas se acabaram.

#include "Fivewin.ch" #include "fileio.ch" #include "Struct.ch" // para FTP directory #define INTERNET_OPEN_TYPE_DIRECT 1 // direct to net #define INTERNET_INVALID_PORT_NUMBER 0 // use the protocol-specific default #define INTERNET_SERVICE_FTP 1 #define INTERNET_FLAG_PASSIVE 0x08000000 #define GENERIC_WRITE 1073741824 #define GENERIC_READ 2147483648 static ftpatualizar:= "/pedidos/atualizar/" static ftpfinance:= "/pedidos/finance/" static cftp:= 'ftp.seuftp.com.br' static cuserftp:= "usuario" static csenhaftp:="senha" * enviar arquivos para o FTP - upload FUNCTION FTPenviar( _Warqui ) Local oDlg, oPrg Local warqui:= cFileName( _warqui ) DEFINE DIALOG oDlg TITLE 'Arquivo: '+ alltrim( warqui ) oDlg:lHelpIcon:=.F. @ 2, 2 PROGRESS oPrg SIZE 100, 15 oDlg:bStart:= {|| UPLOAD( oPrg, oDlg, warqui ), SysWait(0.1), oDlg:end() } ACTIVATE DIALOG oDlg CENTER RETURN NIL * enviar arquivos - ftp STATIC FUNCTION UPLOAD( oPrg, oDlg, warqui ) LOCAL hInternet, hConnect, hSource, hDest, nRead LOCAL cData := SPACE( 1024 ) LOCAL nPos := 0 hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) IF hInternet = 0 ALERT( 'Sem conexão com internet.' ,,'AVISO') RETURN .F. ENDIF hConnect = INTERNETCONNECT( hInternet, cftp, INTERNET_INVALID_PORT_NUMBER, cuserftp, csenhaftp, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0 ) IF hConnect = 0 ALERT('ERRO na criação da conexão com internet - transmissão abortada.',,'AVISO') RETURN .F. ENDIF hDest = FTPOPENFILE( hConnect, ftpatualizar + alltrim( warqui ), GENERIC_WRITE, 0, 0 ) oPrg:SetPos( 0 ) oPrg:SetRange( 0, FSIZE( warqui ) ) hSource:= FOPEN( warqui ) WHILE .T. nRead = FREAD( hSource, @cData, LEN( cData ) ) IF nRead = 0 IF FERROR() = 0 ? "Arquivo enviado - OK" oDlg:end() ELSE ? "Read erro" ENDIF EXIT ENDIF IF !INTERNETWRITEFILE( hDest, @cData, nRead ) ? "Upload erro" EXIT ENDIF nPos += LEN( cData ) oPrg:SetPos( nPos ) ENDDO FCLOSE( hSource ) INTERNETCLOSEHANDLE( hSource ) INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN NIL Esse é para envio

METHOD StruVolume() CLASS TVoNFe local axArray := {} aadd(axArray, {"qVol" , TVoNFeItem():New("N", 0, 15,0, ) } ) aadd(axArray, {"esp" , TVoNFeItem():New("C", 0, 1,60, ) } ) aadd(axArray, {"marca" , TVoNFeItem():New("C", 0, 1,60, ) } ) aadd(axArray, {"nVol" , TVoNFeItem():New("C", 0, 1,60, ) } ) aadd(axArray, {"pesoL" , TVoNFeItem():New("N", 0, 15,15,3 ) } ) aadd(axArray, {"pesoB" , TVoNFeItem():New("N", 0, 15,15,3 ) } ) aadd(axArray, {"lacres", {},0 } ); nPos := len(axArray) aadd(axArray[nPos][2], {"nLacre", TVoNFeItem():New("C", 1, 1, 60 ) } ) return( axArray ) Você tem que ter isto inserido na classe .

Em SVC-AN em produção não esta, somente em homologação.

Voltou a funcionar SP

estou com o mesmo problema, tbem uso dinheiro e esta dando esta msg

Funcionou enviando Xml individual. Ao enviar varios Xml zipado, da como arquivo diferente de Xml ou Zip. Alguem ta conseguindo enviar varios zipado? Se sim, como tem feito.

Só lembrando, voce atualizou os schemas na pasta Nfe_util.

Ja tive esse problema para conexão dom FTP, resolvi desta forma. logo abaixo desta linha: oFTP := TFTP():New( Alltrim(cServFtp), oInternet, Alltrim(cUserFtp),Alltrim(cPassFtp) ) coloque isso, oFTP:lPassive := .T. Espero que de certo pra vc.

Ola, faça assim local oQry := oserver:query(" Select nome, endere, nro, cidade, uf From cadastro ") pode ser de duas formas primeira array := oQry:fillarray(,{"nome","nro","cidade" }) voce coloca os campos que quiser. segunda opção array := oQryAG:fillarray() todos os campos da sua consulta vai estar na array

Eu tbem uso há muito tempo, funciona mto bem.

Link com a solução. http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=20868

FOR nX:=1 TO LEN(aArqs)id=red> Como vc carrega nesta array (aArqs) todos os arquivo da tabela Mysql.

Senha errada !!

Esta pedindo senha para descompactar.

Dentro da pasta xharbour/lib tem a lib pcrepos, adiciona ela ao seu projeto.