EDUTEK

vou zipar o xml e tentar enviar desta forma

Ok, vou tem de outra forma quem conseguir a solução posta aqui.

function LoginWS(mUsuario,mSenha,mArqxml) local strXml, ws, oRs strXml := [] strXml += [mod=login] strXml += [&comp=5] strXml += [&user=]+mUsuario strXml += [&pass=]+mSenha cUrl := "http://www.averbeporto.com.br/websys/php/conn.php" oServer:= CreateObject( "MSXML2.ServerXMLHTTP") oServer:Open( "POST", cUrl, .f. ) oServer:SetRequestHeader( "Content-Type", "application/x-www-form-urlencoded" ) oServer:Send(strXml) // oServer:WaitForResponse( 10000 ) cCookieSessao := oServer:getResponseHeader("Set-Cookie") // pega o cookie da sessão cCookieSessao := substr(cCookieSessao,1,at(';',cCookieSessao)-1) mCookie := cCookieSessao cRetorno:= oServer:ResponseText MemoWrit( "xml\retorno.xml", cRetorno ) return(cCookieSessao) essa aqui ta funcionando e retornando o cookie

sim ele não vai hDados := hb_hash() // Reseto a variavel hDados["mod"] := 'Upload' hDados["comp"] := '5' hDados["path"] := 'eguarda/php/' hDados["recipient"] := '' hDados["file"] := mArqXml && 'ConteudodoarquivoXML' // aki q não tenho certeza tem q testar, mas acredito q seja carregar esse campo com o conteúdo do XML // Como estou logado e o Cookie dentro o oHTTP passo o hDados novo IF !oHTTP:post( hDados ) /// ele encerra aqui RETURN .F. ENDIF cRet:= oHTTP:ReadAll() // pego o retorno hb_jsonDecode(cRet, @hJson) // transformo em JSON ja tentei com o conteuido do xml e com p caminho os dois sai na opcao acima

bom dia fiz desta forma e ele me retorno o seguinte function enviaWS(mUsuario,mSenha,mArqxml) local strXml, ws, oRs, olServer cUrl := "http://www.averbeporto.com.br/websys/php/conn.php?"+; "mod=Upload"+; "&comp=5"+; "&path=eguarda/php/"+; "&file=@"+mArqxml+"" msginfo(cURL) oServer:= CreateObject( "MSXML2.ServerXMLHTTP") oServer:Open( "POST", cUrl, .F. ) oServer:SetRequestHeader( "Cookie", mCookie ) oServer:SetRequestHeader( "Content-Type", "multipart/form-data" ) oServer:Send() // oServer:WaitForResponse( 10000 ) cRetorno:= oServer:ResponseText MemoWrit( "xml\retornoenv.xml", cRetorno ) msginfo(cretorno,"envio") return(cRetorno) {"success":1,"S":{"P":0,"D":0,"R":0,"N":0},"error":{"msg":"No XML or ZIP file found"}} dizendo que não é um arquivo xml.

mas desta forma ele não esta indo, alguém consegue verificar onde esta o erro

o Envio do XML do CTe seria mais ou menos assim function enviaWS(mUsuario,mSenha,mArqxml) local strXml, ws, oRs strXml := [] strXml += [mod=Upload] strXml += [&comp=5] strXml += [&user=]+mUsuario strXml += [&pass=]+mSenha strXml += [&Cookie=]+mCookie strXml += [&path=]+"eguarda/php/" strXml += [&file=]+mArqxml cUrl := "http://www.averbeporto.com.br/websys/php/conn.php" oServer:= CreateObject( "MSXML2.ServerXMLHTTP") oServer:Open( "POST", cUrl, .f. ) oServer:SetRequestHeader( "Content-Type", "multipart/form-data" ) oServer:Send(strXml) // oServer:WaitForResponse( 10000 ) cRetorno:= oServer:ResponseText MemoWrit( "xml\retorno.xml", cRetorno ) msginfo(cretorno,"envio") return(cRetorno)

beleza aqui funciunou retornou o arquivo

como faria isso ? assinar o EXE.

boa tarde O que faz esta função ? na verdade estou com dois usarios que meu sistema tem travado muito, exemplo ele sai da tela e abre um outro programa ou uma pagina do IE, quando volta o programa ja está congerlado, não respondendo, até em tela simples de xbrowse sem nada em processo se fica uma pouco sem usar ou se entrar em outro programa quando volta éstá travado, essa maquina são com windows 10, mas tenho outras que não acontece isso. o esquema do sysrefresh na geracao de relatorio estou colocando. e resolvel, mas nestar duas maquinas não consegui achar o problema. estou usando xh 123 com bcc 7.30 e fwh 18.01 com dbfcdx nas minhas tabelas e sqlrdd só para relatiros e integração com outros sistema ( usando oracle e sqlserver)

só fiz a consulta estou enviando manualmente e pego a averbação na emissao do mdfe, não consegui fazer o envio do xml na hora de emitir o mdfe. Function busca_averba_cte(cCte) public oMSXML2 := TOleAuto():New( "MSXML2.ServerXMLHTTP" ) mNumaverb := Consultaws_cte(cCTE) return mNumaverb Function ConsultaWS_cte(cCTE) local oRs, ws url := "http://www.averbeporto.com.br/websys/atwe/php/Protocolo.php?out=xml"+; "&download=1"+; "&chave[]="+cCte oXMLSedex:= oMSXML2 // MSXML2.ServerXMLHTTP oXMLSedex:Open( "GET", url, .F.) oXMLSedex:Send() cXMLSedex := oXMLSedex:responseText MemoWrit( "sedex.xml", cXMLSedex ) cXMLProt := XMLGet( "protocolo", cXMLSedex ) cXMLErros := if(empty(cXMLProt),"Não Encontrato a Averbação","") cProtocolo := cXMLProt return cProtocolo isso pega o numero da averbação

Ok no caso do ACBR, onde baixo e pego exemplos ?

no caso eu tenho detro do xbrowse as chamadas de dialogs ex: @ 08,250 BTNBMP OF oDlg PROMPT "Email" TOOLTIP "Email do Transito" RESOURCE "cartao" 2007 ACTION {SysLog_Transito_email(),oBrw:Refresh(),oBrw:SetFocus(),oSay:refresh() } SIZE 30, 30 PIXEL FONT oFont3 essa dialog algumas vezes chama mais de uma dialog, no caso colocaria o MSGRUN para chamalas ? @ 08,250 BTNBMP OF oDlg PROMPT "Email" TOOLTIP "Email do Transito" RESOURCE "cartao" 2007 ACTION { msgrun("processando"," ", { || syslog_transito_email()) }),oBrw:Refresh(),oBrw:SetFocus(),oSay:refresh() } SIZE 30, 30 PIXEL FONT oFont3 isso ?

OK VOU FAZER UM TESTE NISSO

Boa tarde eu uso cobrebem para fazer boletos e remessa, mas pelo que vi o cobrebem está sem atualização desde 2009, e tem uma série de cooperativas de credito que emitem boletos agora, e o cobrebem não contempla elas, qual ferramenta vocês estão usando agora para emissão de boletos : preciso emitir boleto para a CrediSIS se alguem tiver o link e exemplos de como estão fazendo isso eu agradeço, pois faz tempo que não mexo com isso.

eu uso a Flexdcos com uma classe que eu fiz usando com base as do Gilmer. se precisar de ajuda estamos ai

bom realmente este xbrowse fica lento para carregar, mas ele carrega, depois fica normal, o que acontece é que na movimentação ou na chamada de alguma dialogos ele trava e fica não respondendo, até nos xbrowse com menos arquivos isso está ocorrendo,

kapi, é assim que geralmente faço meus xBrowse FUNCTION SysLog_Destino(_modulo) *********************** local oDlg local oWND local oBrw local n local oBar public mFrota, mPlaca, mwfrota, mCarreta1, mPlacac, mwcarreta, mMotoris, mNomeMotoris, mwmotoris, mtipoFrota, mCodigoViagem, mChaveGR PRIVATE mSairFora := "ESC" private mOrder := 1 n2Say := "CODIGO" nSay := "CODIGO" m_titulo := _sistema + " - " + _MODULO + " - PROGRAMAÇÃO DE DESTINOS DE VIAGENS " morder := 1 mTipoBrowse := "FW" aEvento := {} mDthoje := date() mHrHoje := time() mQtdeFrota := "30000" mTipoOpe := "13" mcodigoViagem := mChaveGR := "" lAvisouMot := .f. mDataCarga := date() && prog_destino->tipo_ep mHoraCarga := time() && prog_destino->tipo_ep mDataPrev := date() && prog_destino->tipo_ep mHoraPrev := time() && prog_destino->tipo_ep mDataSaida := date() && prog_destino->tipo_ep mHoraSaida := time() && prog_destino->tipo_ep mtimeline := dtos(mdthoje)+mHrHoje aTipoMov := { {"C","Chegada"},; {"S","Saida"},; {"P","Parada"},; {"R","Retormada"}} /* eventos->(dbGoTop()) DO While !eventos->(EOF()) aadd(aEvento,eventos->codigo + " " + eventos->nome) eventos->(dbSkip()) Loop ENDDO */ openfile("empresa","empresa","N","S","xcodigo") openfile("locais","origem","N","S","xcodigo") openfile("locais","destino","N","S","xcodigo") openfile("locais","troca","N","S","xcodigo") openfile("tipoesp","tipoesp","N","S","xcodigo") openfile("filial","filial","N","S","xchave") openfile("frota","frota","N","S","xcodigo") openfile("tipotab","tipotab","N","S","xcodigo") openfile("motoris","motoris","N","S","xcodigo") openfile("prog_pgr","prog_pgr","N","S","xchavev") openfile("prog_passagem","prog_passagem","N","S","xchacar") openfile("prog_classe","prog_classe","N","S","xcodigo") openfile("prog_rotas","prog_rotas","N","S","xcodigo") openfile("prog_viagem","prog_viagem","N","S","xchaarq") dbselectarea("prog_viagem") dbsetrelation("motoris", {||prog_viagem->motoris}, "prog_viagem->motoris") dbsetrelation("tipotab", {||prog_viagem->tipotab}, "prog_viagem->tipotab") dbsetrelation("tipoesp", {||prog_viagem->tipoesp}, "prog_viagem->tipoesp") openfile("prog_destcarga","prog_destcarga","N","S","xchaarq") openfile("prog_origem","prog_origem","N","S","xchaarq") openfile("prog_destino","prog_destino","N","S","xchaarq") dbsetrelation("tipoesp", {||prog_destino->tipoesp}, "prog_destino->tipoesp") dbsetrelation("tipotab", {||prog_destino->tipotab}, "prog_destino->tipotab") dbsetrelation("empresa", {||prog_destino->empresa}, "prog_destino->empresa") dbsetrelation("filial", {||prog_destino->filial }, "prog_destino->filial") dbsetrelation("origem", {||prog_destino->origem }, "prog_destino->origem") dbsetrelation("destino", {||prog_destino->destino}, "prog_destino->destino") dbselectarea("prog_destino") mData := date() dbseek(mdata) mChaveord := prog_destino->chave dbselectarea("prog_viagem") prog_viagem->( dbseek(mChaveord)) ORDSCOPE(TOPSCOPE,mChaveord) ORDSCOPE(BOTTOMSCOPE,mchaveord) dbselectarea("prog_destino") dbseek(mdata) filtra_operacao(Alias(select())) DEFINE BRUSH oBru RESOURCE "fundo" DEFINE DIALOG oDlg PIXEL FONT oBold TITLE ".:: "+m_titulo +" ::." oDlg:lHelpIcon := .F. oDlg:nTop := nTopDlg oDlg:nLeft := 5 oDlg:nBottom := GetSysMetrics(17) - 10 oDlg:nRight := GetSysMetrics(16) - 10 oDlg:nStyle := nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION ) bFiltraPos := {|| mChaveord := prog_destino->chave, dbselectarea("prog_viagem"), prog_viagem->( dbseek(mChaveord)), ORDSCOPE(TOPSCOPE,mChaveord),ORDSCOPE(BOTTOMSCOPE,mchaveord) ,; oBrw2:nRowSel := 1 ,; oBrw2:Refresh(.T.) } *****--- Browse - xBrowse Nativa ---******************************************** oBrw:= TXBrowse():new( oDlg ) oBrw:CreateFromCode() oBrw:nTop := 50 oBrw:nLeft := 10 oBrw:nBottom:= (((oDlg:nHeight())/2 -10)/4) * 3 oBrw:nRight := (oDlg:nWidth())/2 -10 oBrw:cAlias := "prog_destino" oBrw:SetRdd(.F.) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW //-------------> Estilo da barra de seleçao. oBrw:bClrSelFocus := {|| { CLR_WHITE, nRGB( 000, 100, 255 ) } } //--> Cor da barra de seleçao. * oBrw:nClrText:={|| IIF(prog_destino->situacao<>'D',CLR_BLUE,CLR_WHITE) } * oBrw:bClrStd:={|| IIF(prog_destino->situacao<>'D',{CLR_BLUE, CLR_WHITE},{CLR_RED , CLR_WHITE}) } * oBrw:bClrStd :={|| IIF(prog_destino->QTVI>prog_destino->QTVIPROG,{CLR_BLACK, CLR_YELLOW},{CLR_BLUE, CLR_WHITE}) } oBrw:nColDividerStyle := LINESTYLE_BLACK oBrw:nRowDividerStyle := LINESTYLE_BLACK oBrw:nHeaderLines := 01 //----------------------------> Linhas do Cabecalho. oBrw:lAllowColSwapping := .F. //----------------------------> Trocar Colunas oBrw:lAllowRowSizing := .F. //----------------------------> Nao move as Linhas oBrw:lHScroll := .T. //----------------------------> Barra Rolagem Horiz. oBrw:lFooter := .T. oBrw:l2007 := .T. oBrw:bChange := { || eval(bFiltrapos), oDlg:UpDate()} oCol:=obrw:addcol() oCol:bStrdata:={||dtoc(prog_destino->data)} oCol:cHeader:="DATA" oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:nEditType := EDIT_GET oCol:=obrw:addcol() * oCol:bStrdata:={||SUBSTR(tipotab->nome,1,15)} oCol:bStrdata:={||SUBSTR(prog_destino->ntipotab,1,15)} oCol:cHeader:="CLIENTE" oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw:addcol() * oCol:bStrdata:={||prog_destino->tipoesp+prog_destino->tipoesp+" - "+SUBSTR(tipoesp->nome,1,15)} * oCol:bStrdata:={||SUBSTR(tipoesp->nome,1,15)} oCol:bStrdata:={||SUBSTR(prog_destino->ntipoesp,1,15)} oCol:cHeader:="PRODUTO" oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw:addcol() * oCol:bStrdata:={||prog_destino->origem+" - "+SUBSTR(prog_destino->nORIGEM,1,20)} oCol:bStrdata:={||SUBSTR(prog_destino->nOrigem,1,20)} oCol:cHeader:="ORIGEM" oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw:addcol() *oCol:bStrdata:={|| prog_destino->DESTINO+" - "+SUBSTR(prog_destino->nDESTINO,1,20)} oCol:bStrdata:={|| SUBSTR(prog_destino->nDestino,1,20)} oCol:cHeader:="DESTINO" oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw:addcol() oCol:bStrData := { || iif( prog_destino->situacao="A", "Ativo", "Em Viagem")} oCol:cHeader:="SITUACAO" oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw:addcol() oCol:AddResource( "VERMELHO" ) oCol:AddResource( "AMARELO" ) oCol:AddResource( "VERDE" ) oCol:AddResource( "AZUL" ) oCol:cHeader:="SolxPrg" oCol:bBmpData := { || iif( prog_destino->sit_sp="1", 1, ; iif( prog_destino->sit_sp="2", 2, ; iif( prog_destino->sit_sp="3", 3, 4 ))) } oCol:bStrData := { || prog_destino->sit_sp } oCol:nDataBmpAlign := 3 oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw:addcol() oCol:AddResource( "VERMELHO" ) oCol:AddResource( "AMARELO" ) oCol:AddResource( "VERDE" ) oCol:AddResource( "AZUL" ) oCol:cHeader:="PrgxCarr" oCol:bBmpData := { || iif( prog_destino->sit_pc="1", 1, ; iif( prog_destino->sit_pc="2", 2, ; iif( prog_destino->sit_pc="3", 3, 4 ))) } oCol:bStrData := { || prog_destino->sit_pc } oCol:nDataBmpAlign := 3 oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw:addcol() oCol:bStrdata:={||transform(prog_destino->qtde,"@E 999,999,999")} oCol:cHeader:="QTDE PEDIDA" oCol:nDataStrAlign := AL_RIGHT oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw:addcol() oCol:bStrdata:={||transform(prog_destino->qtvi,"@E 999")} oCol:cHeader:="VIAGENS" oCol:nDataStrAlign := AL_RIGHT oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 * oCol:bClrStd = { || if(prog_destino->qtviprog >= prog_destino->qtvi, ; * { CLR_WHITE, CLR_GREEN }, if(prog_destino->qtviprog > 0,; * { CLR_BLACK, CLR_YELLOW }, if(prog_destino->qtviprog = prog_destino->qtvicarga,; oCol:bClrStd = { || iif( prog_destino->sit_sp="1", { CLR_WHITE, CLR_RED }, ; iif( prog_destino->sit_sp="2", { CLR_BLACK, CLR_YELLOW }, ; iif( prog_destino->sit_sp="3", { CLR_WHITE, CLR_GREEN }, { CLR_WHITE, CLR_BLUE } ))) } /* oCol:=oBrw:AddCol() oCol:AddResource("VERDE") oCol:AddResource("VERMELHO") oCol:AddResource("AMARELO") oCol:AddResource("AZUL") oCol:cHeader := "STATUS" oCol:bBmpData := { || iif( PROG_VIAGEM->Married, 1, 2) } oCol:bStrData := { || iif( _FIELD->Married, "Yes", "No ")} oCol:bEditValue := { || _FIELD->Married } oCol:nDataStyle := oCol:DefStyle( AL_RIGHT, .T.) oCol:nEditType := EDIT_LISTBOX oCol:aEditListTxt := { "Yes", "No"} oCol:aEditListBound := { .t., .f. } oCol:bOnPostEdit := {|o, v| (DBRLOCK(), _FIELD->Married := v, DBUNLOCK() ) } */ oCol:=obrw:addcol() oCol:bStrdata:={||transform(prog_destino->qtdeprog,"@E 999,999,999")} oCol:cHeader:="QTDE PROG." oCol:nDataStrAlign := AL_RIGHT oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw:addcol() oCol:bStrdata:={||transform(prog_destino->qtviprog,"@E 999")} oCol:cHeader:="V.PROG" oCol:nDataStrAlign := AL_RIGHT oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:bClrStd = { || iif( prog_destino->sit_pc="1", { CLR_WHITE, CLR_RED }, ; iif( prog_destino->sit_pc="2", { CLR_BLACK, CLR_YELLOW }, ; iif( prog_destino->sit_pc="3", { CLR_WHITE, CLR_GREEN }, { CLR_WHITE, CLR_BLUE } ))) } oCol:=obrw:addcol() oCol:bStrdata:={||transform(prog_destino->qtdecarga,"@E 999,999,999")} oCol:cHeader:="QTDE CARREG." oCol:nDataStrAlign := AL_RIGHT oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw:addcol() oCol:bStrdata:={||transform(prog_destino->qtvicarga,"@E 999")} oCol:cHeader:="V.CARG" oCol:nDataStrAlign := AL_RIGHT oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:bClrStd = { || iif( prog_destino->sit_pc="1", { CLR_WHITE, CLR_RED }, ; iif( prog_destino->sit_pc="2", { CLR_BLACK, CLR_YELLOW }, ; iif( prog_destino->sit_pc="3", { CLR_WHITE, CLR_GREEN }, { CLR_WHITE, CLR_BLUE } ))) } oCol:=obrw:addcol() oCol:bStrdata:={||transform(prog_destino->qtdecarga-prog_destino->qtde,"@E 999,999,999")} oCol:cHeader:="QTDE A CARG" oCol:nDataStrAlign := AL_RIGHT oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 * oBrw:CreateFromCode() oCol:=obrw:addcol() oCol:bStrdata:={||transform(prog_destino->qtVIcarga-prog_destino->qtVI,"@E 999,999,999")} oCol:cHeader:="V.A CARG" oCol:nDataStrAlign := AL_RIGHT oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oBrw:nFreeze:=2 **************************************************************2 xbrowse oBrw2:= TXBrowse():new( oDlg ) oBrw2:CreateFromCode() oBrw2:nTop := oBrw:nBottom + 1 oBrw2:nLeft := 10 && oBrw:nLeft oBrw2:nBottom:= (oDlg:nHeight())/2 -10 && 10 oBrw2:nRight := ((oDlg:nWidth())/2 -10 )/2 oBrw2:cAlias := "prog_viagem" oBrw2:SetRdd(.F.) oBrw2:nMarqueeStyle := MARQSTYLE_HIGHLROW //-------------> Estilo da barra de seleçao. oBrw2:bClrSelFocus := {|| { CLR_WHITE, nRGB( 000, 100, 255 ) } } //--> Cor da barra de seleçao. * oBrw:nClrText:={|| IIF(prog_destino->situacao<>'D',CLR_BLUE,CLR_WHITE) } * oBrw:bClrStd:={|| IIF(prog_destino->situacao<>'D',{CLR_BLUE, CLR_WHITE},{CLR_RED , CLR_WHITE}) } * oBrw2:bClrStd :={|| IIF(prog_destino->situacao='D',{CLR_RED , CLR_WHITE},{CLR_BLUE, CLR_WHITE}) } oBrw2:nColDividerStyle := LINESTYLE_BLACK oBrw2:nRowDividerStyle := LINESTYLE_BLACK oBrw2:nHeaderLines := 01 //----------------------------> Linhas do Cabecalho. oBrw2:lAllowColSwapping := .F. //----------------------------> Trocar Colunas oBrw2:lAllowRowSizing := .F. //----------------------------> Nao move as Linhas oBrw2:lHScroll := .T. //----------------------------> Barra Rolagem Horiz. oBrw2:lFooter := .T. oBrw2:l2007 := .T. oCol:=obrw2:addcol() oCol:bStrdata:={|| PROG_VIAGEM->CARRETA } oCol:cHeader:="CARRETA" oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:nEditType := EDIT_GET oCol:=obrw2:addcol() oCol:bStrdata:={|| prog_viagem->frota} oCol:cHeader:="FROTA" oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:nEditType := EDIT_GET oCol:=obrw2:addcol() oCol:bStrdata:={||iif(prog_viagem->situacao="A","ATIVA ","EM VIAGEM")} oCol:cHeader:="SITUACAO" oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw2:addcol() oCol:bStrdata:={||transform(prog_viagem->qtde,"@E 999,999,999")} oCol:cHeader:="QTDE PROG." oCol:nDataStrAlign := AL_RIGHT oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw2:addcol() oCol:bStrdata:={||transform(prog_viagem->qtdenota,"@E 999,999,999")} oCol:cHeader:="QTDE CARREGADA" oCol:nDataStrAlign := AL_RIGHT oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw2:addcol() oCol:bStrdata:={|| prog_viagem->MOTORIS+"-"+substr(motoris->nome,1,15) } oCol:cHeader:="MOTORISTA" oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 oCol:=obrw2:addcol() oCol:bStrdata:={|| prog_viagem->idlanc } oCol:cHeader:="reg viagem" oCol:oDataFont := oFont4 oCol:oHeaderFont := oFont3 * oBrw2:CreateFromCode() oBrw2:nFreeze:=2 * oCol:=obrw:addcol() * oCol:bStrdata:={|| IIF(dtos(date())+tiratraco(time())>dtos(prog_destino->dataf)+tiratraco(prog_destino->horaf),"Disponivel","Indisponivel") } * oCol:cHeader:="SITUACAO" /* EXEMPLO DE PICTURE COM VALOR oCol:=obrw:addcol() oCol:bStrdata:={||transform(financa->valor,"@E 999,999,999.99")} oCol:cHeader:="VALOR DOCTO" oCol:nDataStrAlign := AL_RIGHT */ oDlg:bKeyDown := {|nKey| Teclas( nKey ),oBrw:Refresh(),oBrw:SetFocus() } @ 00,07 GROUP oGrp2 to 41, 380 LABEL "Ação" PIXEL OF oDlg transparent @ 00,400 GROUP oGrp2 to 20, 490 LABEL "Ordem" PIXEL OF oDlg transparent @ 21,400 GROUP oGrp1 to 41, 490 LABEL "Navegação" PIXEL OF oDlg transparent @ 08,410 SAY oSay VAR n2Say SIZE 50,12 PIXEL FONT oBold update transparent adjust OF oDlg @ 29,410 BTNBMP OF oDlg PROMPT "" TOOLTIP "Primeiro Registro" RESOURCE "T_PRIMEIRO" 2007 ACTION (oBrw:GoTop(),oBrw:SetFocus()) SIZE 12, 12 PIXEL FONT oFont1 @ 29,426 BTNBMP OF oDlg PROMPT "" TOOLTIP "Anterior" RESOURCE "t_anterior" 2007 ACTION (oBrw:GoUp(),oBrw:SetFocus()) SIZE 12, 12 PIXEL FONT oFont1 @ 29,442 BTNBMP OF oDlg PROMPT "" TOOLTIP "Seguinte" RESOURCE "t_proximo" 2007 ACTION (oBrw:GoDown(),oBrw:SetFocus()) SIZE 12, 12 PIXEL FONT oFont1 @ 29,458 BTNBMP OF oDlg PROMPT "" TOOLTIP "Ultimo" RESOURCE "t_ultimo" 2007 ACTION (oBrw:Gobottom(),oBrw:Setfocus()) SIZE 12, 12 PIXEL FONT oFont1 @ 29,474 BTNBMP OF oDlg PROMPT "" TOOLTIP "Desfaz" RESOURCE "t_desfaz" 2007 ACTION (oBrw:Refresh(),oBrw:SetFocus()) SIZE 12, 12 PIXEL FONT oFont1 @ 08,10 BTNBMP OF oDlg PROMPT "Incluir" TOOLTIP "Incluir Prog. Destinos" RESOURCE "incluir" 2007 ACTION {SysLog_Destino_I2("I"),oBrw:Refresh(),oBrw2:Refresh(),oBrw:SetFocus(),oSay:refresh()} SIZE 30, 30 PIXEL FONT oFont2 @ 08,40 BTNBMP OF oDlg PROMPT "Excluir" TOOLTIP "Excluir Prog. Destinos" RESOURCE "excluir" 2007 ACTION {SysLog_Destino_x("X"),oBrw:Refresh(),oBrw2:Refresh(),oBrw:SetFocus(),oSay:refresh()} SIZE 30, 30 PIXEL FONT oFont2 @ 08,70 BTNBMP OF oDlg PROMPT "Alterar" TOOLTIP "Alterar Dados Destinos" RESOURCE "alterar" 2007 ACTION {SysLog_Destino_A("A"),oBrw:Refresh(),oBrw2:Refresh(),oBrw:SetFocus(),oSay:refresh()} SIZE 30, 30 PIXEL FONT oFont2 @ 08,100 BTNBMP OF oDlg PROMPT "Buscar" TOOLTIP "Procurar" RESOURCE "procurar" 2007 ACTION {SysLog_Destino_f("A"),oBrw:Refresh(),oBrw2:Refresh(),oBrw:SetFocus(),oSay:refresh()} SIZE 30, 30 PIXEL FONT oFont2 @ 08,130 BTNBMP OF oDlg PROMPT "Ordem" TOOLTIP "Ordem Pesquisa" RESOURCE "index" 2007 ACTION {SysLog_Destino_o("A"),oBrw:Refresh(),oBrw2:Refresh(),oBrw:SetFocus(),oSay:refresh()} SIZE 30, 30 PIXEL FONT oFont2 @ 08,160 BTNBMP OF oDlg PROMPT "Ver" TOOLTIP "Consulta dados" RESOURCE "ver" 2007 ACTION {SysLog_Destino_V("V"),oBrw:Refresh(),oBrw2:Refresh(),oBrw:SetFocus(),oSay:refresh()} SIZE 30, 30 PIXEL FONT oFont2 @ 08,190 BTNBMP OF oDlg PROMPT "Viagens" TOOLTIP "Lanca Programação de Viagens" RESOURCE "carros" 2007 ACTION {SysLog_Destino_viagem("I"),oBrw:Refresh(),oBrw2:Refresh(),oBrw:SetFocus(),oSay:refresh()} SIZE 30, 30 PIXEL FONT oFont2 @ 08,220 BTNBMP OF oDlg PROMPT "Dt Movto" TOOLTIP "Filtra a Data da Programação" RESOURCE "calendar" 2007 ACTION {SysLog_Destino_data(),oBrw:Refresh(),oBrw2:Refresh(),oBrw:SetFocus(),oSay:refresh()} SIZE 30, 30 PIXEL FONT oFont2 @ 08,250 BTNBMP OF oDlg PROMPT "Opções" TOOLTIP "Opções Adicionais" RESOURCE "engrenagem" 2007 ACTION {SysLog_Destino_adicionais(),oBrw:Refresh(),oBrw2:Refresh(),oBrw:SetFocus(),oSay:refresh()} SIZE 30, 30 PIXEL FONT oFont2 @ 06,290 BTNBMP OF oDlg PROMPT "" TOOLTIP "" RESOURCE "azul" 2007 SIZE 07, 07 PIXEL FONT oFonte @ 06,300 SAY oSay VAR "4-Sem Programa" SIZE 50,07 PIXEL FONT oBold update transparent adjust OF oDlg @ 14,290 BTNBMP OF oDlg PROMPT "" TOOLTIP "" RESOURCE "vermelho" 2007 SIZE 07, 07 PIXEL FONT oFonte @ 14,300 SAY oSay VAR "1-Não Realizado" SIZE 50,07 PIXEL FONT oBold update transparent adjust OF oDlg @ 22,290 BTNBMP OF oDlg PROMPT "" TOOLTIP "" RESOURCE "amarelo" 2007 SIZE 07, 07 PIXEL FONT oFonte @ 22,300 SAY oSay VAR "2-Realizado Parcial" SIZE 50,07 PIXEL FONT oBold update transparent adjust OF oDlg @ 30,290 BTNBMP OF oDlg PROMPT "" TOOLTIP "" RESOURCE "Verde" 2007 SIZE 07, 07 PIXEL FONT oFonte @ 30,300 SAY oSay VAR "3-Realizado Total" SIZE 50,07 PIXEL FONT oBold update transparent adjust OF oDlg * @ 08,290 BTNBMP OF oDlg PROMPT "Opções" TOOLTIP "Opções Adicionais" RESOURCE "azul" 2007 SIZE 10, 40 PIXEL FONT oFonte @ 08,500 BTNBMP OF oDlg PROMPT "SAIR" TOOLTIP "SAIR" RESOURCE "sair" 2007 ACTION {SysLog_Destino_esc(),oDLG:END()} SIZE 30, 30 PIXEL FONT oFont2 ACTIVATE DIALOG oDlg CENTERED dbcloseall() *GlobalFree() *ResAllFree() Release All RETURN nil

Bom dia! Estou tendo esse problema em meus Xbrowse, existe alguma forma de fazer isso também, e geralmente as maquinas com windows 10 que dá isso ? estou usando fwh 18.01, bcc 7.3 xh 1.2.3

Desculpe a demora, eu resolvi usando um Get Muitiline, mas vou testar o Alltrim no valid

quando copio e colo ou quando digito manualmente funciona sem problemas. eu coloquei o get multiline e coloquei com umas 4 linhas, quando passo o leitor ele manda coisa a mais, pois geralmente é um codigo + um CRLF neste caso ele preenche o campo e salta 2 linhas a mais, parece que dá 2 CRLF., mas isso só ocorre no Win 10, com o fivewin 9.04/bcc 5.5, de uso o fivewin 18.01 e bcc 7 não da o erro.

Boa tarde Tenho um GET num programa para emissao de MDFE, o get e para digitar o codigo do Barras do CT-e ou passar o leitor quando Digito o sistema não dá erro ou se copio e colo a chave no get function movsai_mdf_imp_um() local oDlg, oBrush, oFont local mxChave := SPACE(44) mxPesq := space(44) mxAverb := space(44) mchave := "" lMaisdeUm := .f. lCartaCorrecao := .f. Set Confirm on SET SOFTSEEK ON DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14 DEFINE DIALOG oDlg SIZE 700,220 ; PIXEL TITLE "INFORMA A CHAVE DA CTE A PESQUISAR" @ 10,10 SAY "Informe a Chave do CT-e " SIZE 80,12 PIXEL OF oDlg @ 25,10 GET oGet VAR mxPesq Picture "@!" SIZE 170, 12 PIXEL OF oDlg UPDATE @ 3,1 CHECKBOX lmAISDEuM PROMPT "&Tem mais de um CT-e o MDF-e." OF oDlg @ 4,1 CHECKBOX lCartaCorrecao PROMPT "Tem Carta de Correção este CT-e." OF oDlg @ 70,10 SAY "Informe o No. da Averbação " SIZE 120,12 PIXEL OF oDlg @ 85,10 GET oGet2 VAR mxAverb Picture "@!" SIZE 170, 12 PIXEL OF oDlg @ 10,250 BTNBMP PIXEL OF oDlg PROMPT "Executa" TOOLTIP "Executar a Pesquisa" FILE mrede_path+"\imagem\CONFIR.bmp" 2007 ACTION {( MOVSAI_MDF_IMP(alltrim(mxPesq),mxAverb),oDlg:end())} SIZE 32, 32 ACTIVATE DIALOG oDlg CENTERED RELEASE FONT oFont SET SOFTSEEK OFF Set Confirm off dbselectarea("movfin") dbseek(mchavefil+MCHAVE) ORDSCOPE(TOPSCOPE,mchaveFil) ORDSCOPE(BOTTOMSCOPE,mchaveFil) movfin->( dbgotop() ) movfin->( dbgobottom() ) * movsai_mdf_R() return nil Mas quando leio pelo leito ele me apresenta o seguinte erro Application =========== Path and name: D:\Aplicx\CONES\cones.EXE (32 bits) Size: ********* bytes Compiler version: xHarbour build 1.0.0 Intl. (SimpLex) FiveWin Version: FWHX 9.04 Windows version: 6.2, Build 9200 Time from start: 0 hours 0 mins 17 secs Error occurred at: 01/06/2018, 13:07:15 Error description: Error BASE/1111 Argument error: LEN Args: [ 1] = U Stack Calls =========== Called from: => LEN( 0 ) Called from: TGET.prg => TGET:KEYCHAR( 1155 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) Called from: tget.prg => GET:OVERSTRIKE( 1256 ) Called from: TGET.prg => TGET:KEYCHAR( 1146 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: CONTROL.prg => TCONTROL:HANDLEEVENT( 1453 ) Called from: TGET.prg => TGET:HANDLEEVENT( 588 ) Called from: WINDOW.prg => _FWH( 3333 ) Called from: => DISPOUTAT( 0 ) Called from: tget.prg => GET:DISPLAY( 621 ) que pode ser feito ? tenho um outro programa identico mas em FWH 18.01 e BCC 7.00 que tem a mesma funcao ele nção dá esse erro, outra coisa no win 7 não dá mas se executo no Win 10 dá, que dá para fazer neste caso.

Valeu Gilmer!

ok vou testar

Boa tarde Estou precisando importar uma planilha do excel que tem vários planilhas todas nomeadas, como falo para ler somente uma ou como faço para escolher pois cada uma vou alimentar uma tabela diferente. tenho a planilha TABELA DE CUSTOS.XML depois tenho dentro dela as seguinte "frotas", "motoristas", "oficina", etc...