terça-feira, 30 de setembro de 2014

Tabela 'T100' não contém nenhuma entrada para J1B_NFE 603 - NOTA SAP 1993419

Tabela 'T100' não contém nenhuma entrada para J1B_NFE 603 – NOTA SAP 1993419

 

E lembre toda vez que existir uma regra de validação apontando para uma mensagem, esta mensagem dever estar cadastrada na SE91 -> J1B_NFE 603.

 

Erro erro e erro... aff

 

 

O que o pré requesito não aplicado não faz!!!!

 

Dentro da BAPI create NF

 

CALL FUNCTION 'BAPI_J_1B_NF_CREATEFROMDATA' (linha 954)

PERFORM check_nf_bapi  (linha 551)

CALL FUNCTION 'CHECK_DOMAIN_VALUES' (linha 894)

 

Regra de validação

 

Include - LJ1BBF2G

 

* Begin validations --> Note 1993419                        "1993419
  
IF wk_header-nfe 'X'.                                   "1993419
*   Always: NF-e: Check if Payment Form is valid in the     "1993419
*     domain values.                                        "1993419
    
CALL FUNCTION 'CHECK_DOMAIN_VALUES'                     "1993419
      
EXPORTING                                             "1993419
        domname       
'J_1B_PAY_FORM_IND' "#EC NEEDED     "1993419
        
value         wk_header-indpag                    "1993419
      
EXCEPTIONS                                            "1993419
        no_domname    
1                                   "1993419
        wrong_value   
2                                   "1993419
        dom_not_found 
3                                   "1993419
        
OTHERS        4.                                  "1993419
    
IF sy-subrc <> 0.                                       "1993419
       subrc 
8.                                           "1993419
       
PERFORM bapireturn_fill                              "1993419
         
USING 'J1B_NFE' 'E' '602'                          "1993419
               wk_header
-indpag space space space           "1993419
         
CHANGING return[].                                 "1993419
    
ENDIF.                                                  "1993419
                                                            
"1993419
*   Always: NF-e: Check if Freight mode is valid in the     "1993419
*     domain values.                                        "1993419
    
CALL FUNCTION 'CHECK_DOMAIN_VALUES'                     "1993419
      
EXPORTING                                             "1993419
        domname       
'J_1B_FREIGHT_MODE' "#EC NEEDED     "1993419
        
value         wk_header-modfrete                  "1993419
      
EXCEPTIONS                                            "1993419
        no_domname    
1                                   "1993419
        wrong_value   
2                                   "1993419
        dom_not_found 
3                                   "1993419
        
OTHERS        4.                                  "1993419
    
IF sy-subrc <> 0.                                       "1993419
       subrc 
8.                                           "1993419
       
PERFORM bapireturn_fill                              "1993419
         
USING 'J1B_NFE' 'E' '603'                          "1993419
               wk_header
-modfrete space space space         "1993419
         
CHANGING return[].                                 "1993419
    
ENDIF.                                                  "1993419
                                                            
"1993419
*   Always: NF-e: Check if NF-e Final Consumer Indicator    "1993419
*     is valid in the domain values.                        "1993419
    
CALL FUNCTION 'CHECK_DOMAIN_VALUES'                     "1993419
      
EXPORTING                                             "1993419
        domname       
'J_1BNFE_INDFINAL' "#EC NEEDED      "1993419
        
value         wk_header-ind_final                 "1993419
      
EXCEPTIONS                                            "1993419
        no_domname    
1                                   "1993419
        wrong_value   
2                                   "1993419
        dom_not_found 
3                                   "1993419
        
OTHERS        4.                                  "1993419
    
IF sy-subrc <> 0.                                       "1993419
       subrc 
8.                                           "1993419
       
PERFORM bapireturn_fill                              "1993419
         
USING 'J1B_NFE' 'E' '604'                          "1993419
               wk_header
-ind_final space space space        "1993419
         
CHANGING return[].                                 "1993419
    
ENDIF.                                                  "1993419
                                                            
"1993419
*   Always: NF-e: Check if NF-e Customer Presence Indicator "1993419
*     is valid in the domain values.                        "1993419
    
CALL FUNCTION 'CHECK_DOMAIN_VALUES'                     "1993419
      
EXPORTING                                             "1993419
        domname       
'J_1BNFE_INDPRES' "#EC NEEDED       "1993419
        
value         wk_header-ind_pres                  "1993419
      
EXCEPTIONS                                            "1993419
        no_domname    
1                                   "1993419
        wrong_value   
2                                   "1993419
        dom_not_found 
3                                   "1993419
        
OTHERS        4.                                  "1993419
    
IF sy-subrc <> 0.                                       "1993419
       subrc 
8.                                           "1993419
       
PERFORM bapireturn_fill                              "1993419
         
USING 'J1B_NFE' 'E' '605'                          "1993419
               wk_header
-ind_pres space space space         "1993419
         
CHANGING return[].                                 "1993419
    
ENDIF.                                                  "1993419
                                                            
"1993419
*   Always: NF-e: Check if the Process origin indicator     "1993419
*     is valid in the domain values.                        "1993419
    
LOOP AT wk_ref_proc.                                    "1993419
      
CALL FUNCTION 'CHECK_DOMAIN_VALUES'                   "1993419
        
EXPORTING                                           "1993419
          domname       
'J_1BNF_PROC_ORIGIN' "#EC NEEDED  "1993419
          
value         wk_ref_proc-indproc               "1993419
        
EXCEPTIONS                                          "1993419
          no_domname    
1                                 "1993419
          wrong_value   
2                                 "1993419
          dom_not_found 
3                                 "1993419
          
OTHERS        4.                                "1993419
      
IF sy-subrc <> 0.                                     "1993419
         subrc 
8.                                         "1993419
         
PERFORM bapireturn_fill                            "1993419
           
USING 'J1B_NFE' 'E' '608'                        "1993419
                 wk_ref_proc
-indproc space space space      "1993419
           
CHANGING return[].                               "1993419
      
ENDIF.                                                "1993419
    
ENDLOOP.                                                "1993419
                                                            
"1993419
*   Always: NF-e: Check if the Account number is valid on   "1993419
*     table ska1.                                           "1993419
    
CLEAR lv_ktopl.                                         "1993419
    
SELECT SINGLE ktopl                                     "1993419
      
INTO lv_ktopl                                         "1993419
      
FROM t001                                             "1993419
     
WHERE bukrs wk_header-bukrs.                         "1993419
                                                            
"1993419
    
LOOP AT wk_item.                                        "1993419
      
IF NOT wk_item-cod_cta IS INITIAL.                    "1993419
        
SELECT SINGLE saknr                                 "1993419
          
INTO lv_saknr                                     "1993419
          
FROM ska1                                         "1993419
         
WHERE ktopl  lv_ktopl                            "1993419
           
AND saknr  wk_item-cod_cta.                    "1993419
        
IF sy-subrc <> 0.                                   "1993419
           subrc 
8.                                       "1993419
           
PERFORM bapireturn_fill USING  'F5' 'E' '106'    "1993419
               wk_item
-cod_cta wk_header-bukrs space space  "1993419
             
CHANGING return[].                             "1993419
        
ENDIF.                                              "1993419
      
ENDIF.                                                "1993419
    
ENDLOOP.                                                "1993419
                                                            
"1993419
*   Always: NF-e: Check if the Regions in transport         "1993419
*     tabstrip is valid in the table T005S.                 "1993419
    
CLEAR ls_addr1_val.                                     "1993419
    
CALL FUNCTION 'J_1B_BRANCH_READ'                        "1993419
      
EXPORTING                                             "1993419
        branch                  
wk_header-branch          "1993419
        company                 
wk_header-bukrs           "1993419
     
IMPORTING                                              "1993419
       address_value           
ls_addr1_val               "1993419
     
EXCEPTIONS                                             "1993419
       branch_not_found        
1                          "1993419
       address_not_found       
2                          "1993419
       company_not_found       
3                          "1993419
       
OTHERS                  4.                         "1993419
                                                            
"1993419
    
IF sy-subrc 0.                                        "1993419
      
IF NOT wk_header-uf1 IS INITIAL.                      "1993419
        
SELECT SINGLE mandt                                 "1993419
          
INTO lv_dummy                                     "1993419
          
FROM t005s                                        "1993419
         
WHERE land1 ls_addr1_val-country                 "1993419
           
AND bland wk_header-uf1.                       "1993419
                                                            
"1993419
        
IF sy-subrc <> 0.                                   "1993419
          subrc 
8.                                        "1993419
          
PERFORM bapireturn_fill                           "1993419
            
USING 'J1B_NFE' 'E' '607'                       "1993419
              wk_header
-uf1 ls_addr1_val-country            "1993419
              space space                                   
"1993419
            
CHANGING return[].                              "1993419
        
ENDIF.                                              "1993419
      
ENDIF.                                                "1993419
                                                            
"1993419
      
IF NOT wk_header-ufembarq IS INITIAL.                 "1993419
        
SELECT SINGLE mandt                                 "1993419
          
INTO lv_dummy                                     "1993419
          
FROM t005s                                        "1993419
         
WHERE land1 ls_addr1_val-country                 "1993419
           
AND bland wk_header-ufembarq.                  "1993419
                                                            
"1993419
        
IF sy-subrc <> 0.                                   "1993419
          subrc 
8.                                        "1993419
          
PERFORM bapireturn_fill                           "1993419
            
USING 'J1B_NFE' 'E' '607'                       "1993419
              wk_header
-ufembarq ls_addr1_val-country       "1993419
              space space                                   
"1993419
            
CHANGING return[].                              "1993419
        
ENDIF.                                              "1993419
      
ENDIF.                                                "1993419
                                                            
"1993419
      
LOOP AT wk_trailer_info.                              "1993419
        
IF NOT wk_trailer_info-veh_uf IS INITIAL.           "1993419
          
SELECT SINGLE mandt                               "1993419
            
INTO lv_dummy                                   "1993419
            
FROM t005s                                      "1993419
           
WHERE land1 ls_addr1_val-country               "1993419
             
AND bland wk_trailer_info-veh_uf.            "1993419
                                                            
"1993419
          
IF sy-subrc <> 0.                                 "1993419
            subrc 
8.                                      "1993419
            
PERFORM bapireturn_fill                         "1993419
              
USING 'J1B_NFE' 'E' '607'                     "1993419
                wk_trailer_info
-veh_uf ls_addr1_val-country "1993419
                space space                                 
"1993419
              
CHANGING return[].                            "1993419
          
ENDIF.                                            "1993419
        
ENDIF.                                              "1993419
      
ENDLOOP.                                              "1993419
                                                            
"1993419
    
ELSE.                                                   "1993419
      subrc 
8.                                            "1993419
      
PERFORM bapireturn_fill                               "1993419
        
USING 'J1B_NFE' 'E' '606'                           "1993419
          space space space space                           
"1993419
        
CHANGING return[].                                  "1993419
    
ENDIF.                                                  "1993419
  
ENDIF.                                                    "1993419
* End validations <-- Note 1993419                          "1993419

 

 

AVISO LEGAL

"As informações existentes nesta mensagem e nos arquivos anexados têm caráter confidencial e são para uso restrito. A utilização, divulgação, cópia ou distribuição desta mensagem, ou parte dela, por qualquer pessoa diferente do destinatário é proibida, sujeitando o infrator às sanções legais. Se esta mensagem foi recebida por engano, favor excluí-la e informar ao remetente pelo endereço eletrônico acima. Agradecemos sua cooperação."

DISCLAIMER

"This email and its attachments may contain privileged and/or confidential information. Use, disclosure, copying or distribution of this message, or part thereof, by anyone other than the intended recipient is strictly prohibited, and will submit the infractor to the legal sanctions. If you have received this email in error, please notify the sender by reply email and destroy all copies of this message. Thank you for your cooperation."

Nenhum comentário:

Postar um comentário