Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: OX001MF1 - Customização do Resumo do Orçamento
Descrição: Ponto de Entrada localizado na rotina Orçamento de Peças e Serviços (OFIXA011), executado em todas as opções do menu da rotina Orçamento por Fases (OFIXA011), tem como finalidade possibilitar a customização da tela de Resumo do Orçamento. Eventos User Function OX001MF1 aAdd(aOrc,{'u_RetValSrv1()',"Valor do serviço",0,"u_RetValSrv2()"}) aAdd(aOrc,{'u_RetValPec1()',"Valor de peças",0,"u_RetValPec2()"}) aAdd(aOrc,{'MaFisRet(,"NF_BASESOL")',"Base ICMS Ret.",0,"VS1->VS1_BRICMS"}) aAdd(aOrc,{'MaFisRet(,"NF_VALSOL")' ,"ICMS Ret." ,0,"VS1->VS1_ICMRET"}) //Campo criado no modulo padrao eh VS1_ICMRET. - Carla 27/10/11. return User Function RetValSrv1() nSrv := MaFisRet(,"NF_BASEISS") return nSrv User Function RetValSrv2() cQuery := "SELECT VS4.VS4_VALTOT " cQuery += "FROM " cQuery += RetSqlName( "VS4" ) + " VS4 " cQuery += "WHERE " cQuery += "VS4.VS4_FILIAL='"+ xFilial("VS4")+ "' AND VS4.VS4_NUMORC = '"+VS1->VS1_NUMOSC+"' AND " cQuery += "VS4.D_E_L_E_T_=' '" dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasVS4, .T., .T. ) nSrv := 0 Do While !( cAliasVS4 )->( Eof() ) nSrv += ( cAliasVS4 )->VS4_VALTOT dbSelectArea(cAliasVS4) ( cAliasVS4 )->(dbSkip()) Enddo return nSrv User Function RetValPec1() nPec := MAFISRET(,"NF_TOTAL") - MAFISRET(,"NF_BASEISS") return nPec User Function RetValPec2() cQuery := "SELECT VS3.VS3_VALTOT " cQuery += "FROM " cQuery += RetSqlName( "VS3" ) + " VS3 " cQuery += "WHERE " cQuery += "VS3.VS3_FILIAL='"+ xFilial("VS3")+ "' AND VS3.VS3_NUMORC = '"+VS1->VS1_NUMOSC+"' AND " cQuery += "VS3.D_E_L_E_T_=' '" dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasVS3, .T., .T. ) nPec := 0 Do While !( cAliasVS3 )->( Eof() ) nPec += ( cAliasVS3 )->VS3_VALTOT dbSelectArea(cAliasVS3) ( cAliasVS3 )->(dbSkip()) Enddo return nPec Programa Fonte OFIXX001.PRW Sintaxe OX001MF1 - Customização do Resumo do Orçamento ( [ ] ) Parâmetros:
Retorno
Observações aOrc := {} aAdd(aOrc,{'MaFisRet(,"NF_TOTAL") - MaFisRet(,"NF_DESCZF")',"Total",0,"VS1->VS1_VTOTNF"}) aAdd(aOrc,{'MaFisRet(,"NF_VALICM")',"ICMS Calculado",0,"VS1->VS1_ICMCAL"}) aAdd(aOrc,{'MaFisRet(,"NF_DESCONTO")',"Desconto",0,"VS1->VS1_VALDES"}) aAdd(aOrc,{'MaFisRet(,"NF_SEGURO")',"Seguro",0,"VS1->VS1_VALSEG"}) aAdd(aOrc,{'MaFisRet(,"NF_DESPESA")',"Despesa",0,"VS1->VS1_DESACE"}) aAdd(aOrc,{'MaFisRet(,"NF_FRETE")',"Frete",0,"VS1->VS1_VALFRE"}) // PONTO DE ENTRADA PARA ALTERACAO DO VETOR aOrc If ExistBlock("OX001MF1") ExecBlock("OX001MF1",.f.,.f.) EndIf Variáveis
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas