Alain da Silva

Pessoal, minha tela de vendas é meio demorada pra mostrar, então pra não ficar aquela coisa de ficar esperando sem nada, eu chamo ela assim: MsgRun("Manutenção de Vendas","Aguarde...",{||MANUTNFE("I")}). Só que eu estava pensando em algo com movimento, tipo meter, alguma idéia? obrigado Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

voltou ao normal Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

pessoal, alguém esta com problemas para transmitir nfe na sefaz. usando minha conexão vivo e com o cartão A1 eu transmiti normal, agora usando minha conexãop CLARO com certificado digital, o sistema diz que não foi possível a conexão com a sefaz, que a conexão atingiu seu tempo limite, apesar de ser rápido essa mensagem e eu estar navegando na internet normal, inclusive importando as nfs no portal nacional. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

pessoal, alguém esta com problemas para transmitir nfe na sefaz. usando minha conexão vivo e com o cartão A1 eu transmiti normal, agora usando minha conexãop CLARO com certificado digital, o sistema diz que não foi possível a conexão com a sefaz, que a conexão atingiu seu tempo limite, apesar de ser rápido essa mensagem e eu estar navegando na internet normal, inclusive importando as nfs no portal nacional. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

bom dia Vagner, é somente pra uma visualização minha pra ver o que foi contabilizado. eu tenho um browse com as informações: ----------------------------------------------------- Nº NFe Fornecedor Dt.Emissão Valor Forma de Pagto ----------------------------------------------------- ai eu criei um botão pra me mostrar os produtos e que conta foi contabilizado. é somente um atalho. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Eu achei que o VALTOPRG fica difícil a visualização. preferi usar o browse mesmo. FUNCTION MOSTRACAMPO(OCONTROLE) SELE 50 DBSETORDER(2) DBSEEK(STR(OCONTROLE,11)) ORDSCOPE(0,STR(OCONTROLE,11)) ORDSCOPE(1,STR(OCONTROLE,11)) ARQNFECP->(DBGOTOP()) AARRAY:={} WHILE ARQNFECP->(!EOF()) AaDd(aArray,{ALLTRIM(ARQNFECP->DESCRICAO),ARQNFECP->CONTABIL,ALLTRIM(ARQNFECP->CUSTO),ALLTRIM(ARQNFECP->HISTORICO)}) ARQNFECP->(DBSKIP()) ENDDO DEFINE DIALOG oDLG FROM 1, 1 TO 300, 1100 ; TITLE "Visualizar Produto-Apropriação Contábil"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL oDLG: LHELPICON := .F. // TIRA A ? DA JANELA oDLG:bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } @ 01.0,01.0 BROWSE oBrowse OF oDLG SIZE 500,100 oBrowse:SetArray(aARRAY) ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 01 SIZE 300 PICT "@!" CENTER HEADER "DESCRIÇÃO" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 02 SIZE 100 PICT "@!" CENTER HEADER "CONTA CONTABIL" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 03 SIZE 300 PICT "@!" CENTER HEADER "SETOR" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 04 SIZE 300 PICT "@!" CENTER HEADER "HISTORICO" ************************************************** @120,10 SBUTTON oBtn; SIZE 40, 15 PIXELS OF oDLG; PROMPT "&OK" RESOURCE "CANCELA"; ACTION (SAIDLG:=.T.,TPIMPRES:END()); COLORS XPAZUL,BRANCO; TEXT POSITION ON_RIGHT XP ACTIVATE DIALOG oDLG CENTER RETURN(.T.) id=code>id=code>Obrigado a todos pela ajuda Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Obrigado pela ajuda, é só para mostrar mesmo, uma consulta minha. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Pessoal, estou criando um array: AARRAY:={} WHILE ARQNFECP->(!EOF()) AaDd(aArray,{ARQNFECP->DESCRICAO,ARQNFECP->CONTABIL,ARQNFECP->CUSTO,ARQNFECP->HISTORICO}) ARQNFECP->(DBSKIP()) ENDDO id=code>id=code>Como faço para mostrar esse array? MSGINFO? EM GET? COMO SERIA? Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Pessoal, estou criando um array: AARRAY:={} WHILE ARQNFECP->(!EOF()) AaDd(aArray,{ARQNFECP->DESCRICAO,ARQNFECP->CONTABIL,ARQNFECP->CUSTO,ARQNFECP->HISTORICO}) ARQNFECP->(DBSKIP()) ENDDO id=code>id=code>Como faço para mostrar esse array? MSGINFO? EM GET? COMO SERIA? Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Também não faz minha área, mas acho que vale a pena participar. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Obrigado Kapiaba, vou testar qualquer coisa grito. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Kapiaba, salvei meu .RES para .RC e editei. meu dialogo MANUTNFEC DIALOG 7, 44, 668, 337 STYLE DS_ABSALIGN | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_MAXIMIZEBOX FONT 8, "MS Sans Serif" LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL { RADIOBUTTON " Nota Fiscal Eletrônica", 32, 9, 20, 91, 12 RADIOBUTTON " Nota Fiscal", 56, 108, 20, 58, 12 RADIOBUTTON " Nota Fiscal Serviço", 57, 170, 20, 91, 12 EDITTEXT 33, 10, 33, 278, 14, WS_BORDER | WS_TABSTOP EDITTEXT 47, 289, 33, 281, 14, WS_BORDER | WS_TABSTOP EDITTEXT 27, 580, 33, 46, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 31, 632, 33, 23, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP COMBOBOX 3, 11, 73, 45, 40, CBS_DROPDOWNLIST | WS_TABSTOP EDITTEXT 4, 73, 73, 82, 14, WS_BORDER | WS_TABSTOP EDITTEXT 5, 163, 73, 73, 14, WS_BORDER | WS_TABSTOP EDITTEXT 111, 243, 73, 327, 14, WS_BORDER | WS_TABSTOP EDITTEXT 35, 580, 73, 75, 14, WS_BORDER | WS_TABSTOP EDITTEXT 10, 11, 99, 278, 14, WS_BORDER | WS_TABSTOP EDITTEXT 39, 291, 99, 39, 14, WS_BORDER | WS_TABSTOP EDITTEXT 13, 332, 99, 238, 14, WS_BORDER | WS_TABSTOP EDITTEXT 20, 580, 99, 75, 14, WS_BORDER | WS_TABSTOP EDITTEXT 14, 11, 126, 54, 14, WS_BORDER | WS_TABSTOP COMBOBOX 16, 73, 126, 31, 113, CBS_DROPDOWNLIST | WS_TABSTOP EDITTEXT 43, 112, 126, 218, 14, WS_BORDER | WS_TABSTOP COMBOBOX 17, 332, 126, 238, 101, CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL | WS_VSCROLL | WS_TABSTOP EDITTEXT 26, 580, 126, 75, 14, WS_BORDER | WS_TABSTOP CONTROL "", 12, "TWBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 11, 168, 646, 96 PUSHBUTTON "Incluir", 28, 11, 268, 50, 14 PUSHBUTTON "Detalhar", 15, 70, 268, 50, 14 PUSHBUTTON "Exclluir", 29, 129, 268, 50, 14 PUSHBUTTON "Contabilizar", 41, 186, 268, 54, 14 EDITTEXT 63, 13, 295, 63, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 65, 77, 295, 70, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 67, 148, 295, 66, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 69, 215, 295, 70, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 71, 286, 295, 62, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 45, 349, 295, 57, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 54, 407, 295, 54, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 48, 462, 295, 57, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 50, 520, 295, 54, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 52, 575, 295, 82, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 58, 407, 320, 55, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 60, 463, 320, 56, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 61, 520, 320, 54, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP EDITTEXT 59, 575, 320, 82, 14, ES_RIGHT | WS_BORDER | WS_TABSTOP GROUPBOX "DADOS DA NFE", 23, 5, 8, 654, 42, BS_GROUPBOX | BS_LEFTTEXT AUTOCHECKBOX " Selecionar Todas", 40, 15, 156, 71, 12 AUTOCHECKBOX " Selecionar as Não Contabilizadas", 55, 92, 156, 127, 12 RTEXT "Valor Total Produtos", 36, 442, 269, 74, 9 LTEXT "Natureza da Operação", 18, 290, 23, 89, 9 RTEXT "N\xBA da NFe", 24, 581, 23, 45, 9 RTEXT "Série", 30, 631, 23, 23, 9 LTEXT "Tipo de Docto", -4, 10, 64, 57, 9, NOT WS_GROUP LTEXT "CPF/CNPJ *", -5, 72, 64, 45, 9 LTEXT "Insc.Estadual *", -6, 162, 64, 53, 9, NOT WS_GROUP LTEXT "Razão Social *", -2, 243, 64, 54, 8, NOT WS_GROUP LTEXT "Data da Emissão", 34, 580, 64, 68, 9 LTEXT "Logradouro *", -8, 11, 90, 53, 8 LTEXT "Número", 38, 290, 90, 30, 9, NOT WS_GROUP LTEXT "Bairro *", -11, 331, 90, 29, 8 LTEXT "Data da Saída", 19, 580, 89, 68, 9 LTEXT "CEP", -12, 11, 116, 29, 8 LTEXT "UF", -14, 73, 116, 17, 8 LTEXT "Pesquisa Município", 44, 112, 116, 94, 10 LTEXT "Município", -15, 332, 116, 47, 8 LTEXT "HORA DA SAÃDA", 25, 580, 116, 68, 9 RTEXT "Bs C. ICMS", 62, 11, 285, 65, 9 RTEXT "Valor do ICMS", 64, 88, 285, 59, 9 RTEXT "Bs C.ICMS ST", 66, 154, 285, 60, 9 RTEXT "V. ICMS Subst.", 68, 218, 285, 67, 9 RTEXT "Valor do Frete", 42, 294, 285, 54, 9 RTEXT "Seguro", 72, 372, 285, 34, 9 RTEXT "Descontos", 53, 415, 285, 46, 9 RTEXT "Outras D.A.", 46, 464, 285, 55, 9 RTEXT "Valor do IPI", 49, 522, 285, 52, 9 RTEXT "Valor Total da NFe", 51, 584, 285, 72, 9 GROUPBOX "IDENTIFICAÇÃO DO EMITENTE", 22, 5, 53, 569, 90, BS_GROUPBOX | BS_LEFTTEXT GROUPBOX "", 21, 576, 53, 83, 90, BS_GROUPBOX | BS_LEFTTEXT GROUPBOX "VOLUMES", 86, 9, 522, 655, 57, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP LTEXT "Quantidade", 87, 15, 536, 77, 8 EDITTEXT 88, 15, 548, 74, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP LTEXT "Espécie", 89, 97, 537, 44, 8 EDITTEXT 90, 96, 548, 145, 15, WS_BORDER | WS_TABSTOP LTEXT "Marca", 91, 246, 537, 44, 8 EDITTEXT 92, 246, 548, 133, 15, WS_BORDER | WS_TABSTOP LTEXT "Numeração", 93, 384, 537, 44, 8 EDITTEXT 94, 384, 548, 100, 15, WS_BORDER | WS_TABSTOP LTEXT "Peso Bruto", 95, 489, 537, 44, 8 EDITTEXT 96, 489, 548, 82, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP LTEXT "Peso Líquido", 97, 577, 537, 66, 8 EDITTEXT 98, 577, 548, 82, 15, ES_RIGHT | WS_BORDER | WS_TABSTOP GROUPBOX "DADOS DOS PRODUTOS E SEVIÇOS", 11, 5, 146, 656, 139, BS_GROUPBOX | BS_LEFTTEXT RTEXT "", 37, 520, 267, 54, 14, SS_RIGHT | WS_BORDER | WS_GROUP RTEXT "Inscr.Municipal", 70, 404, 310, 58, 9 RTEXT "Valor Total dos Serviços", 73, 571, 310, 86, 9 RTEXT "Bs C.ISSQN", 74, 465, 310, 54, 9 RTEXT "Valor do ISSQN", 75, 520, 310, 55, 9 } como seria esse: marca o bloco e leva para onde você quer que o FOCO fique. id=code>id=code>Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Kapiaba eu uso .RES Não sei usar em .RC mas vou dar uma olhada. Obrigado. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Pessoal, no workshop eu marco em (Tools 1,2) a sequência dos meus TABS. A pergunta é o seguinte, quando eu incluo um objeto, tem como dar sequência a ordem ou toda vez eu tenho que ir desde o começo na seguência. Exemplo: tenho um dialog com 50 objetos, ai incluo um la no último get. Hoje eu marco um a um de novo. obrigado Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Pessoal, no workshop eu marco em (Tools 1,2) a sequência dos meus TABS. A pergunta é o seguinte, quando eu incluo um objeto, tem como dar sequência a ordem ou toda vez eu tenho que ir desde o começo na seguência. Exemplo: tenho um dialog com 50 objetos, ai incluo um la no último get. Hoje eu marco um a um de novo. obrigado Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

opa, respondemos quase juntos, LUIS, é isso mesmo:Ou assim ? TRANS(STRZERO(4443,9),"@R 999.999.999") Obrigado Luiz Fernando Obrigado Luis Fernando Jr. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Ola Luiz, assim eu sei que daria. Não teria uma função do tipo quando vamos colocar valores: Transf(TOTALNFE,"@E 999,999.99") obrigado Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

pessoal, como faço para imprimir como na nfE. exemplo: numero 4443, sair assim 000.004.443 obrigado Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

pessoal, como faço para imprimir como na nfE. exemplo: numero 4443, sair assim 000.004.443 obrigado Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

Não sei se pra isso tem diferença, mas esqueci de mencionar que é a twbrowse do herman. usando esse comando que vocês passaram ele sempre me retorna 1, independente em qual lugar eu clicar. OBRWPRO:blClicked := {|| GRAVAMARCA(OBRWPRO)} // Um unico click no mouse FUNCTION GRAVAMARCA(OBRW) MSGINFO(OBRW:nColAct) //-> mostra 1 msginfo(OBRW:NCOLPOS) //-> mostra 1 msginfo(OBRW:Nat) //-> mostra nil id=code>id=code>Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5 Editado por - boingo on 04/04/2012 14:04:52

bom dia, é possível na twbrose saber quando eu cliquei na célula do browse. Eu sei os controles do blDblClick, bKeyChar, mas isso é dentro do browse, eu queria saber exatamente quando clicar em um determinado ponto do browse. obrigado Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

bom dia, é possível na twbrose saber quando eu cliquei na célula do browse. Eu sei os controles do blDblClick, bKeyChar, mas isso é dentro do browse, eu queria saber exatamente quando clicar em um determinado ponto do browse. obrigado Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

eu uso assim REDEFINE COMBOBOX OBJCLI[14] VAR VARCLI[14] ID 16 ITEMS ARRITEM OF ODLGCLIMANUT REDEFINE DBCOMBO OBJCLI[15] VAR VARCLI[15] ID 17 ALIAS "ARQMUN" ITEMFIELD "NOME" LISTFIELD "NOME" OF ODLGCLIMANUT REDEFINE GET OBJCLI[27] VAR PSQCID ID 43 PICTURE "@!" OF ODLGCLIMANUT FONT FNORMAL OBJCLI[27]:bPostKey :={|| PQSCID(VARCLI[14],OBJCLI[15],OBJCLI[27],@VARCLI[15]) } FUNCTION PQSCID(OEST,OBJ2,OBJ,OVAR2) LOCAL cTEXTO:=obj:oGET:buffer LOCAL cPESQU:="" FALI=ALIAS() IF cTEXTO#NIL cPESQU=ALLTRIM(obj:oGET:buffer) ELSE cPESQU=ALLTRIM(obj:oGET:varGet()) ENDIF SELE 43 DBSETORDER(3) DBSEEK(OEST+CPESQU) OVAR2:=ARQMUN->NOME OBJ2:REFRESH() SELE 43 DBSETORDER(2) SELE &FALI RETURN(OBJ2,OBJ,OVAR2) id=code>id=code>Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5 Editado por - BOINGO on 03/04/2012 20:50:31

Luis, você não me entendeu, eu incorporei o código ao projeto e continua estourando o tamanho. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5

boa tarde, estou tendo mesmo problema que o colega teve na época, copiei esse código e ficou na mesma. Alguém sabe dizer porque? Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5